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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORATiOn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS ¥ 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


LIT 
S NOT SUPPLIED BY DIGITAL. 


LARARARARARASAASALALESESLLESASEERE EEE SESE EES ESET E ESSE SEC CCS SECC CCS S ECCS 


CDOOOCCQCQOOCOoCoOoCoCOoOoOCOoOCOOOoOOOoOOoOOoO 
Coo 


SOQOOOOOoooooooooooooooooooooooooOooOoOoOoOOOOOOOOO 


SOoOoooooooooooooooooo 


“FACILITY: 
This i will be distributed with VAX/VMS under the CSYSTESTJ 
account. 


ABSTRACT: 
This module oxerg tose 8 DR780 or a DR750 in the VAX/VMS system using 
Q10 functions. 2048( 10) ) byte transfers are written and read 
using chained command packets. The transfers are verified for 
correct data. 


enhaes:s 
is re will run in user ot a mode, with interrupts enabled 
+. mes. This program must be Linked with SYSSSYSTEM:SYS.STB 
Base of its use of symbol 1ocsGu. XFMXRATE to get the current DR 
aon trensrer rate. This program requires the following privileges and 
quotas: 


AUTHOR: Larry Jones, CREATION DATE: May, 1981 
MODIFIED BY: 


v03-010 pencocs Richard N. Holstein, 21-Mar-1984 
Change wording on error messages. 


v03-009 RNHOO07 Richard N. Holstein, 15-Feb-1984 
Take advantage of the new UETP message codes. Fix SSERROR 


NAME AN SO OOO NAME WN O OOO NAME WIN SO OOO NAME WW SO OD NOU EWI OOONOU Ew 


SOOOOCOOOOSOSOSOSOOSOOSOOSSOSOSSOSOSSOSOSOSOSODOOCSOOOCOOOODOOCOOOOOOOOOOOOOO 


SOOoOQooooooooooooooooooooooooosoSo 
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28 : interaction with RMS_ERROR. 
60 ; V03-008 RNHO006 Richard N. Holstein, 05-Jan-1984 
61; Set up SYSSERROR for the ucode loader process and report back 
86 : a results. 
64 ; V03-007 RNHOOOS Richard N. Holstein, | 19-Dec-1983 
9? ; Give correct sentinels to Test Controller. 
0 89 ; V03-006 seen Richard N. Holstein, 21-Nov-1983 
00 oe ; Use decimal conversion routine for unit numbers. 
a9 $3 : v03-005 RNHOO03 Richard N. Holstein, 11-Mar-1983 
B88 4 : Don't signal ending message in EXIT_HANDLER. 
4H ig : v03-004 ers Richard N. Holstein, 25-Feb-1983 
44 fe : Allow for Longer device names. 
9000 76 ; V03-003 RNHOOO1 Richard N. Holstein 15-Oct-1982 
43 44 ; Miscellaneous Hues Listed in the V3B UETP Workplan. 
9000 79 ; v03-002 Ldy0002 arry D. Jones 11-Mar-1982 
4 5 : Fixed missing bit set in connand table for DOR. 
0000 Be : v03-001 L040001 Larry D. Jones 29-Sep-1981 
0000 : Lled in error path exits with missing etary values and 
8000 : ; iioneeal the order of the error/end test 
0000 86 :#* 
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89 d -SBTTL Declarations 
30 3 INCLUDE FILES: 
36 : SYSSLIBRARY:LIB.MLB for general definitions 
37 3 SHRLIB$:UETP.MLB for UETP definitions 
95 . 
09 38 3; MACROS: 
98 * SACCDEF ; Accounting definitions 
8 +3 SCHF DEF 3 sengi tien handler frame definitions 
0 SDEVDEF 3; Device definitions 
4h 4 SDIBDEF 3 Device Information Block 
0 § SDVIDEF ; SGETOVI ITMLST item codes 
000 0 SSHRDEF ; Shared messages 
000 be SSSDEF ; System Service status codes 
000 5 SSTSDEF 3; Status return 
000 B6 SUE TUNTDEF 3; UETP unit block offset definitions 
000 0 SUE TPDEF 3 UET 
4 88 SXF DEF 3; DR780 definitions 
4464 ; USER MACRO DEFINITIONS 
$009 ; QRETRY = This macro executes an interlocked queue instruction and 
4 : ruts retries up to 25 times if the queue is locked. 
0000 : OPCODE = OPCODE NAME : INSQHI, INSQTI, REMQHI, REMQTI. 
00 OPERAND1 = first operand for opcode. 
00 OPERAND2 = second operand for opcode. 
00 SUCCESS = Label to branch to if operation succeeds (may be defaulted). 
oo ERROR = Label to branch to if operation fails (may be omitted). 
; OUTPUTS: 
0 : destroyed. 


clear if operation succeeded. 

set if operation failed - queue locked. 
(must be checked before V-bit or Z-bit) 
REMQTI OR REMQHI: 


V-bit = clear if an entry removed from queue. 
set if no entry removed from the queue. 


INSQTI OR INSQHI: 


Z-bit = clear if entry is not first in the queue. 
set if entry is first in the queue. 


eens _— OPCODE ,OPERAND1 ,OPERAND2,, SUCCESS ,ERROR , ?LOOP,, 70K 


: C-BIT 


OOOOoCoooooooooooooooo 


OPCODE Saath 
SUCCESS 
OK 


OPERAND2 
UCCE 


SUCCESS 


ee me eed ed ed ed = = = 2 -w — —  8 
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2 


-ENDC 

AOBLSS #25,R0,LOOP 
I ERROR 
BRW ERROR 

~ENDC 


128 
i 
129 
150 OK: 
09 ! 1 ~ENDM QRETRY 
8 138 -MACRO BUILD ,NAME,STATUS 
0 134 -=PC{... ; PC of ASCIC pkt NAME table 
000 155 ADDRESS PC2... 3; ASCIC pkt address 
$8 136 «LONG “X*STATUS ; Expected packet return code 
1 PC1...=PC1...+8 ; Bump to the next address 
000 158 .=PC2... ; Point to the next ASCIC msg 
000 159 ; Make it's Label and function ID 
8606 160 NAME: 
000 161 i /NAME, / 
0000 166 PEdeac®. ; Update the string PC 
Bap 16 -ENDM BUILD 
000 164; 
0000 165 ; EQUATED SYMBOLS: 
44 166 ; 
000 167; #2zFacility number definitions: 
00000001 44 198 RMSS_FACILITY = 1 
0000 170; SHR message definitions: 
00740000 0000 171 = UETPS_FACILITY@STS$V_FAC_NO ; Define the UETP facility code 
007410E0 0000 76 UETP$_ABENDD = UETP!SHR$_ABENDD”; Define the UETP message codes 
00741038 0000 17 UETP$_BEGIND = UETP!SHR$_BEGIND 
0074108 000 174 UETPS_ENDEDD = UETP!SHR$_ENDEDD 
0074109 000 175 UETPS_OPENIN = UETP!SHR$_OPENIN 
0074113 000 176 UETPS$_TEXT = UETP!SHRS_TEXT 
0000 177 
000 178; #£Internal flag bits...: 
00000000 0000 179 GV = 0 ; Set when a control C is typed 
00000001 0000 10 TEST_OVERV = 1 ; Set when test is over 
0000000 000 181 SAFE TO_UPDV = ¢ ; Set if it’s safe to update UETINIDEV 
0000000 4 13 R_FLG? = 3; Set when an error occurs 
00000004 00 18 FPAC_FLGV =4 ; Set when first packet is serviced 
00000005 4 183 BEGIN_MSGV = 5 : Set if 'BEGIN'' msg has been printed 
$0 1 $ 3 -.eand sorrespanding masks: 
00000001 1 CC_FLGM = 1TaCcC_FLGV 
88088 : 1 8 TEST_OVERM = 1aTEST_OVERV 
1 SAFE_TO_UPDM = 1a@SAFE TO_UPDV 
i444 0 190 ERR_FLGA = 1aERR_FLGV 
000001 191 FPAC_FLGM = 1aFPAC_FLGV 
000002 136 BEGIR_MSGM = 1aBEGIR_MSGV 
194 ; Wisco) Lane: 
0000020 195 LC_BITM = *x20 ; Mask to convert lower case to upper 
18 138 Est = “X1B 3 Escape definition 
19 REC_SIZE = #9 3 UVETINIDEV.DAT record size 
3 138 TEXT BUFFER = 132 3: Internal text buffer size 
19 SS_SYNCH_EFN = 3 ; Synch miscellaneous system services 
F soo MAR_PROC"NAME = 13 ; Longest process name 
A 1 MAX-DEV_BESIG = 1 ; Longest possible controller name 
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8 8 5 ¢ MAX_UNIT_DESIG= 5 ; Longest possible unit number 
1 NO_OF _POS_PKTS= 17 ; Number of possible packet types 
3 9 4 _ PKT_ COUNT = 13 ; Number of packets to be processed 
6 5 UNUSED_FUNC = mS 3; Bit mask of the unused functions 
i § BUFSIZ = as 3; Read/write buffer size 
00 FN1 s 3: EF number definitions 
0000004 8 EFN2 = 4 3; EFN used for three minute timer 
8 19 ; The following definitions are set depending on the device under test. 
0000000 00 \§ DEVDEP_SIZE =0 : Size of device dependent part of UETUNT 
BO Oop gS 1 WRITE_SIZE = BUFSIZ 3; Size of device write buffer 
000080 3 13 READ_SIZE = BUFSIZ ; Size of device read buffer 
000 16 PAGES = <<UETUNTSC_INDSIZ+- ; Add together all of the pieces... 
B808 17 DEVDEP_STZE+- 3 seewhich make up a UETP unit block... 
. 00 8 18 WRITE_SIZE+- 3 «+.to give to the SEXPREG service below 
000 19 READ iy E+= 
00000009 0000 $9 511>7512> 
0000 221 
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3 -SBTTL Read-Only Data 
0000 4 "PSECT RODATA,NOEXE , NOWRT , PAGE 
ACNT_NAME: ; Process name on exit 
53 45 54 53 59 53 wecnecnea ocnics * : § “— ,ASCID /SYSTEST/ 
F 8 
6 F 395 TEST_NAME : ; This test name 
37 52 44 54 45 55 ravieeie yyy OOF 0 eASC'D /UETDR7800/ 
0 B38 ' 
SUPDEV_GBLSEC: ; How we access UETSUPDEV.DAT 
50 55 53 54 45 55 00000028'010E0000' 09 $e “ .ASCID /UETSUPDEV/ 
56 45 44 ; ; 23% 
$0 1 $32 CONTROLLER: ; Logical name of controller 
41 4E 4C 52 54 43 00000039'010E0000" 0031 36 eASCID /CTRLNAME/ 
45 4D 003F 
0041 37 
0041 38 PROCESS: ; ucode load program 
59 53 24 53 59 53 99090069"0205 0009" 0041 39 eASCID /SYSSSYSTEM:XFLOADER.EXE/ 
45 44 41 GF 4C 46 58 3A 4D 45 54 53 004F 
45 58 45 2€ 52 0058 
0060 240 
8308 241 XFLDR_SYSSERROR: ; File name of SYSSERROR for XFLOADER 
2E 52 4F 52 52 45 SF 52 44 re" re 72 4: 242 eASCII = /XFLDR_ERROR.LOG/ 
0000000F Oper ae XFLDR_SYSSERROR_LENGTH = .-XFLDR_SYSSERROR 
QO6F 45 XFLDR_SYSSERROR_DESC: ; SYSSERROR descriptor during S$CREPRC 
0000 OOOF Boer 528 «WORD XFLDR_SYSSERROR_LENGTH,0 
00000060" B83 rt -ADDRESS XFLDR_SYSSERROR 
0077 $25 XFLDR_HUNG: ; We timed out waiting to load ucode 
6D 20 32 33 38 44 0000 OFF 9105 9009" 0077 250 -ASCID /DR32 microcode loader process seems to be hung. / 
61 6F 6C 20 65 64 6F 63 6F 72 63 69 0085 
20 73 73 65 63 6F fe 70 20 72 65 64 0091 
20 65 62 20 6F 74 20 73 6D 6 82 73 «=6009D 
20 2E 67 6E 75 68 BeAr $1 
DOA 33¢ XFLDR_LOG: ; Error messages during ucode loading 
6D 20 32 33 52 44 000000B7'010E0000" OOAF 25 -ASCID /DR32 microcode loader process logged some error message(s): / 
61 6F $6 34 65 64 § 63 6F 72 63 69 00BD 
$8 ie 73 6 $3 6F Hy 29 72 6 oe ac? 
0 65 60 of 20 64 § § oF f D5 
67 61 73 73 65 6D 20 72 6F ¢ ‘ 6 0€1 
20 3A 29 735 28 65 BE 56 
F 55 XFLDR_COPY_START: ; SPUTMSG MSGVEC for start copying log 
000F 9006 F 28 «WORD 6,°XF 
7411 F 5 “LONG UETPS_TEXT!STS$K_ERROR 
000 01 FB 8 -WOR ‘ 
OOOOOAF* OOFF 5 «ADDRESS XFLDR_LOG 
48081 01 3 60 - LONG ETP$_COPY_LOG 
0 8 1 OI 61 - WORD ° 
0000006F ° } e 66 «ADDRESS XFLDR_SYSSERROR_DESC 


UETDR7800 
v04-000 


Onu' 

Mor 
frowns 
QOOonrs 
Wor 
COruno 
MUIR 
ome 
MNO 
ow 
Orne 
fo—rw 


4E 49 24 53 59 53 


21 20 42 58 32 21 


2A 20 42 58 32 21 


VAX/VMS i DEVICE 


Read-Only Dat 


00000014 


veceeachiae hg gt 
54 55 50 


0020 0040 
00000014°0000001C' 
00000000 
000001AD"010E0000" 
20 42 58 % 
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64 XFLDR_COPY LINE: 
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XFLDR_COPY FINISH: 


MOD 
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; SPUTMSG MSGVEC for copying log Line 


1 


4,*Xx1 
ETP. COPY_LOG_LINE 


ADDRESS eurrenpra 


. WORD 
LONG 


SPUTMSG MSGVEC for ucode ' 'r log end 


“XF 
ETP$_COPY_LOG_ENDED 


«WORD 
- ADDRESS KFLDR_SYSSERROR_DESC 


-ASCID 


-ASCID 


NG 

» LONG 

~ LONG 

~ LONG 
NRAT_LENGTH = 
SYSSINPUT: 

-ASCID 
INPUT_ITMLST: 

~ WORD 

LONG 

~ LONG 
CS1: 

-ASCID 
CS2: 

-ASCID 
CS3: 

-ASCID 
CS4: 


RMS$~RAB 
.-NO_RAS_AST_TABLE 


; Run mode logical name 
/MODE/ 


/Bad DR !AC packet DSL of !XL expected !XL/ 


List of errors for which. 

-«eRMS cannot deliver an AST. 
-even if one has an ERR= arg” 
Note that we can search table... 

«Via MATCHC since <31:16>. 
--pattern can't be in <15:0>° 


RMS$_BLN 
RASS witty 
RMS$_CDA 

RASS. F 


Name of device from which... 


/SYSSINPUT/ 3 «e-the test can be aborted 

; SGETDVI arg List for SYSSINPUT 
64 ,DVI$_DEVNAM ; We need the equivalence name 
BUFFER,BUFFER_PTR 
0 ; Terminate the List 

; Device class and type control string 
/'2xB !2xB / 


/The DR!IAC data rate is !XW which is !AS megabytes per second./ 


; Device class-only control string 
/'2XB **/ 
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Failed to start data transfer\ 


\!L! Missing !UL!= packet!%S : 
-ASCID /Can't test controller !AS, marked as unusable in UVETINIDEV.DAT./ 


-ASCID /Illegal record format in file UETINIDEV.DAT!/ 
-ASCID /End of pass !UL with 'UL iterations at !2%D./ 


-ASCID \DR ucode load failure.\ 

-ASCID \Aborted via a user CTRL/C\ 
-ASCID /No controller specified./ 

LECTE - 

-ASCID /No units selected for testing./ 
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sa 


30 38 37 09" 
30 35 37 89" 


; 18 ob samp agony 
4 41 44 2E 56 45 44 49 4E 4 


FFFFFFFF 94862E00 
FFFFFFFF DC3CBA00 
FFFFFFFF FAOAIFOO 


0009 0028 
0000001C" 


65 6C 69 66 00000426'010E0000" 


64 72 6F 63 65 72 00000432'010E0000' 


41 21 20 53 4D 52 0000049" 0106 0000" 
66 20 6E 69 20 72 6F 72 72 65 20 5 
44 41 21 20 65 6C 69 
64 sy 72 65 6C 6C 6F 72 74 6E 6F 43 
3A 3F 6E 6F 69 74 61 6E 67 69 73 $2 
00000019 
75 71 20 64 61 42 0000 a7a'010 000° 
SHER SA PE eS 
$4 2 SF 5 93 72 85 38 be 6C 
6E 75 0 52 44 000004A8'010E000 
55 1 8 20 55 o6 omagan gaze 
65 70 6D oA 0 65 4 1 f 
6F 66 20 64 65 64 $7 § ? 
E 67 6E 69 74 65 74 20 7 
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3 pr780 
40 -ASCIC 
41 DR750: 
42 eASCIC 


43 
44 INIDEV_UPDERR: 
45 -ASCID 


F 14 
TEST FOR DR780/DR750 "9 


w$EP=1985 0:85:16 


AX/VMS Macr 


a Page UE] 
UETPSY.SRCJ . db v0e 


Ge YoR7800. MAR: 1 


; DR780 name 


/780/ 


/750/ 


; Error during exit handler 


/Error updating UETINIDEV.DA 


DR750 name 
| 


; 3 minute delta time 


1 minute delta time 
10 second delta time 


Descriptor used to convert unit # 


vite 4g 0 used to convert controller... 
rom lowercase to uppercase 


Fills in RMS_ERR_STRING 


Fills in RMS_ERR_STRING 


; Announces an RMS error 


D/ 


/ 


4 

23 THREEMIN: 

48 «LONG <-10*1000*1000*180,-1 

49 ONEMIN ; 
50 «LONG -10*1000*1000*60,-1 

51 TENSEC 

26 LONG =-10*1000*1000*10,-1 3 
54 UNIT_DESC: 3 
55 «LONG 5 

2$ eADDRESS BUFFER+6 

58 CONT_DESC: 3 
59 «WORD REC_SIZE,0 3 
$i ADDRESS BUFFER 

6¢ FILE: : 
°7 -ASCID /file/ 

65 RECORD: : 
66 -ASCID /record/ 

68 RMS_ERR_STRING: 

69 ~ASCID /RMS !AS error in file !AD 
70 

71 PROMPT: 

72 ASCII /Controller designation?: 
if PMTSIZ = .-PROMPT 

75 BADQUE: 

76 ASCID /Bad queue entry detected! Fatal error!/ 
77 

8 TEST_HUNG: 

7 -ASCID /DR hung, check backplane 


jumpers needed for testing./ 


ae 


2C GE 49 41 48 43 SF 44 41 45 52 0 


20 2C 44 41 


VAX/VMS y 4 DEVICE 


Read-Only Data 


Dd8° 
BC’ 


00001 


0000056C 


Ses 


SSSSssssss 
ooo 


oooooo 


45 52 $9" 
anng0KEc, 
a0000005 


F4 
5B4" 
ees 


20 2C 45 54 49 52 57 69" 


SH 


5 bee 
mmnooge - 


OOOO GLOOM BLOOM DLOMNALHLLLOOMOMO 


PPP PF OOCOCODWDOONNNOOOmmm 


OONNOOCOCBWLSOOCO 


FS 


409 


410 


411 


TEST FOR DR? 


F 14 
80/DR750 19736 


P1986 be:85:46 


; LKWSET parameter pres, for locking 


AX/VMS Macr 
UETPSY.SRCJ 


SGeYDR7800. MAR; i?” 


; Down the command bloc 


; Table of pointers to ASCIC packet names 
acket status returns 
** table must be in this order 


And 


Sete 


ASC 


ASC 


Sete Ge Se 


psc 


Pot 


CMDBLKDES: 
-ADDRESS CMDBLK 
[ADDRESS CMDBLKEND 
NAME_TBL 
-BLKL NO_OF_POS_PKTS#2 
PKT_TBL: 
-ADDRESS FREE_PKT 
.ADDRESS NOOPPKT 
-ADDRESS SET_SELF_PKT 
-ADDRESS DIAG_WRI-PKT 
-ADDRESS READ-DDI-PKT 
-ADDRESS DIAG-REA-PKT 
ADDRESS WRITE_CH-PKT 
.ADDRESS WRITE PK 
-ADDRESS READ_CHA_PKT 
.ADDRESS READ™PK 
ADDRESS DIAG WRT_PKT 
-ADDRESS CLR_SELF-PKT 
-ADDRESS HALT_PK 
PC1...=NAME_TBL 
PC2...=. 
.LIST MEB 
BUILD meselore ss 
-ADDRESS PC2.. 
- LONG * 460000023 
READ: : its 
-ASCIC /READ, / 
BUILD READ CHAIN, ,00000023 
-ADDRESS PC 
-LONG “00000023 
READ_CHAIN: eheweiey: 
-ASCIC /READ_CHAIN, / 
BUILD WRITE Seger 
* ADDRES 
“LONG 5 ££59000023 
WRITE: 


BUILD WRITE G PSHAIN. -00000023 
156006023 


sASCIC /WRITE, / 


“ADDRESS. P 
- LONG 


ASC 


expected 
NOT 


Table of pointers to DR packets 
* NOTE ** table must be in this order 


3; Set name pointer 
; Set name table pointer 


Build the + ye Fe the type name 


IC pkt address 


IC pkt addre 


IC pkt address 


PC of Ascic pkt READ 


Expected packet return code 
Point to the next ASCIC msg 


PC of ASCIC ll me, CHAIN table 


Expected packet reture code 
Point to the next ASCIC msg 


PC of ASCIC pkt WRITE table 


ected packet return code 


nt to the next 


IC pkt addres 


ASCIC msg 


PC of ASCIC pkt weiss CHAIN table 
Expected sachet reture code 


lene 
0000058C 04 


GE 49 41 48 43 SF 45 54 49 52 4 ec 


ba 


3 8 


43 SF 56 45 44 SF 45 ae é? 
20 2C 4 


pepe ioe lolo lola lololololelolololo! 


DPD DE PLP DDD D> SVD D> SDE VV 


20 2C 50 4F 4F 4E 99" 


52C 
sie 
060€ 

49 SF 44 41 45 52 SF 47 41 49 44 00° 
20 2C 54 4E 


yah) 
ODOWWINODOSCOONMINNOO MOF MUN FAM HMM 3 MMOS 9 MOVIN INN OOOO ODOOD 
MPMM ROOMM NNN HS NNNGNN FE O09 NNW FANNON FOOD NO SOY PODEY POOO 


VAX/VMS UETP DEVICE TEST FOR pR788/DR750 iB a i 1 
Read-Only Data 


-=PC2... 


WRI E_CHAIN: 
ASCIC /WRITE_CHAIN, / 


412 BUILD WRITE E ADEV. CNTRL, 00000023 
“ADDRESS P : 
tong “400006023 E 


sASCIC /WRITE_DEV_CNTRL, 


WRITE_DEV LCNTRL: | 


413 BUILD sae ,00000000 
~ADDRE are ; 
-LONG “6 000000 3 
RESERVED: Tig : 
-ASCIC /RESERVED, / 
414 


BUILD SET =petr.t TEST 00000023 


ADDRESS PC2.. 
os Me x00000023 


+ASCIC /SET_SELF_TEST, / 


Sete Ge te 


SET_SELF_TEST: 
415 BUILD CLR “SPL e, TEST 00000003 


~ ADDR PC2.. 
LONG *§ 100000003 


CLR_SELF_TEST: — 
-ASCIC /CLR_SELF_TEST, / 


416 BUILD noncgeyooenes 
“ADDRESS PC2.. : 
“LONG” + .456000003 
NOOP: si : 
.ASCIC /NOOP, / 
417 


BUILD DIAG SPC ez INT ,00000023 


tone * 160000023 


DIAG_READ_INT: — 
-ASCIC /DIAG_READ_INT, / 


“1986 00:85:16 


; Point to the next ASCIC msg 


eds, pkt add 


~ 


AX/VMS Macro v04- 


UETPSY.SRCJUETDR7800.MAR; 1 


PC of ASCIC pkt WRITE_DEV_CNTRL table 
ress 
gugectee packet return code 
nt to the next ASCIC msg 


PC of ASCIC . ReSeaves table 
ASCIC pkt addre 

Expected pocket reture code 
Point to the next ASCIC msg 


PC of ASCIC Fm i act SELF_TEST table 
ASCIC pkt addre 

Expected soaten reture code 

Point to the next ASCIC msg 


PC of ASCIC pkt CLR_SELF_TEST table 
ASCIC pkt address 

Expected packet return code 

Point to the next ASCIC msg 


PC of ASCIC pkt NOOP table 

ASCIC pkt address 

Expected packet return code 
Point to the next ASCIC msg 


PC of ASCIC pkt atag _READ_INT table 
pete pkt addres 

gugestee packet rerure code 

nt to the next ASCIC msg 


ree Hh] 


H 14 
UETDR7800 VAX/VMS yl Sevaee TEST FOR DR780/DR750 16-SEP-19 0:21:03 VAX/VMS Macro V04é- Page 1 
v04-0 Read-Only Dat mets 7 90:93:93 UE They. Cae IUEYDR7B90.MAR: 1 . t§) 
1E€ 418 BUILD DIAG WRIT_INT,00000023 
534 5 3; PC of m4 ood ite -WRIT_LINT table 
ote “ADDR ES§ AAT 3 ASCIC pkt addre 
¢ 8 LONG 660023 3 prey packet” return code 
6iE ¢ DIAG WALT INT ° ; Point to the next ASCIC msg 
49 SF 54 49 52 57 SF 47 41 49 44 00° SIE See eASCIC /DIAG_WRIT_INT, / 
20 2C 54 oF och 
¢ —E 419 BUILD READ_DDI,00000023 
0000053C E =PC1. ; PC of ASCIC pkt aes DDI table 
Begone . f - ADDRESS AAT; : ASCIC pkt addres 
4 om 606023 ; Expected packet return code 
0000062E 238 sane bet EPC ses ; Point to the next ASCIC msg 
20 2C 49 44 44 SF 44 41 45 52 +f E > eASCIC /READ_DDI, / 
Og 3 420 BUILD DIAG_WRT =CNTRL. 00000023 
00000544 639 -=PC1. ; PC of ASCIC pkt DIAG_WRT_CNTRL table 
00000639" 0544 ADDRES ; ASCIC pkt address 
ee eet 0548 13 oe 56158600023 ; Expected packet return code 
00000659 054C¢ ; Point to the next ASCIC msg 
0639 DIAG_WRT_CNTRL: 
GE 43 SF 54 52 57 SF 47 41 49 44 00' 0639 eASCIC /DIAG_WRT_CNTRL, / 
20 2C 4C 52 73 3033 
064A 421 BUILD SET_RAND_ENABLE ,00000000 
0000054C 064A =PC1. ; PC_of ASCIC pkt SET_RAND_ENABLE table 
0000064A" 054C ADDRESS PC2.. ; ASCIC pkt address 
00000000 0550 - LONG ~160006000 3; Expected packet return code 
0000064A 0554 ona ; Point to the next ASCIC msg 
064A SET_RAND _ENABLE: 
4E 45 SF 44 4E 41 52 SF 54 45 53 00° 064A eASCIC /SET_RAND_ENABLE, / 
20 2C 45 4C 42 a 3e76 
065C 422 BUILD CLR_RAND <fMAALE. 00000000 
000083 ae Bef =P ; PC_of ASCIC pkt CLR_RAND_ENABLE table 
0000065C° 0554 ADDRES at # 3; ASCIC pkt address 
i444 44 558 ol DMS 555 000000 : Expected packet reture code 
0000065C 236 ae ; Point to the next ASCIC msg 
65C CLR_RAND _ENABLE: 
GE 45 SF 44 4E 41 52 SF 2g 4C 43 00° o7f eASCIC /CLR_RAND_ENABLE, / 
20 2C 45 4C 42 41 o6 
11 o2t 
—E 423 BUILD HALT 00000003 
000055C gf : PC of ASCIC pkt HALT table 
4 Sf f "ADDR ES§ PC 3; ASCIC pkt address 
6 ‘ 3 *x00000003 3; Expected packet return code 
0066E + ea 8 -=PC2. 3; Point to the next ASCIC msg 
20 2C 54 4C 41 48 90" vee eASCIC /HALT, / 
ers 424 BUILD FREE ,00000029 
564 7 -=PC1... ; PC of ASCIC pkt FREE table 
5° 0564 ADDRESS 473 ‘. ; ASCIC pkt address 
$2 68 LDMS *x00000029 ; Expected packet return code 
6C =PC2... ; Point to the next ASCIC msg 


8 ee eeeeeeEEEeEEEEEEOEOEOEeeeeeee 


ag 


14 
VAX/VMS UETP DEVICE TEST FOR pR780/DR750 a i tat 


Read-Only Data 


7 
20 2C 45 45 52 46 80 i 


67C 9425 


FREE: 


SEP=19 


eASCIC /FREE, / 
»NLIST MEB 


Be be:45:t6 


AX/VMS Macro V04- Page 3 
UETPSY.SRCJUETDR7800.MAR; 1 (3) 
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UETDR7800 VAX/VMS UETP DEVICE TEST FOR DR780/DR75O 16-SEP=1984 00:21:03 VAX/VMS Macro V06- Page 14 
vO4=000 gr seen lone baig y SRE IUEYDR7B00.maR:1 2%" fe 


Read/Write Data 4 04:35:16 (CUETPS ) 


427 -SBTTL Read/Write Data 
0000 ? § ~-PSECT RWDATA,WRT,NOEXE,PAGE 
430 TTCHAN: ; Channel associated with ctrl. term. 
0000 ? 1 «WORD 0 
4 : MBCHAN ; Mailbox channel 
0000 $ : : «WORD 0 
094 4 § CHAN ; DR780 channel 
0000 04 ? «WORD 0 
$06 4 § PID: ; PID storage for ucode load process 
00000000 +44 re -LONG 0 
OOA $36 FLAG: ; Miscellaneous flag bits 
0000 Bae re «WORD 0 : (See Equated Symbols for definitions) 
0OC 445 FAO_BUF: ; FAO output string descriptor 
0000 0084 000C rg «WORD TEXT_BUFFER,O 
0000001C' th teh - ADDRESS BUFFER 
014 449 BUFFER_PTR: ; Fake .ASCID buffer for misc. strings 
0000 0084 Baie 450 -WORD TEXT_BUFFER,O ; A word for Length, a word for desc. 
0000001C" Bate $3) -ADDRESS BUFFER 
001C re BUFFER: ; FAO output and other misc. buffer 
000000A0 Bois $28 -BLKB TEXT_BUFFER 
b0a0 $28 DEVDSC: ; Device name descriptor 
0000 000A OOAO 45 «WORD MAX _DEV_DESIG,0 
000000BF ° Baas $28 -ADDRESS DEV_NAME 
Ons 460 PROCESS_NAME: ; Process name 
38 37 52 44 000000B0'010E0000" O0A 461 -ASCID /DR78/ 
SSSRREP S982 S86 FRMESS BME LOE MMO wanecrbPocess man> 
OBF 464 ; oe 
beer 465 DEV_NAME: ; Device name buffer 
QO00000CE OO0BF 466 -BLKB _ MAX_DEV_DESIG+MAX_UNIT_DESIG 
0000000F Bace rtf NAME_LEN = 7-DEV_NAME 
CE 469 DIB: ; Device Information Block 
0008 ogre bee $09 -WORD DIBSK_LENGTH,0 
00006" 3 ris nsonees -ADDRESS DIBBOF 
0000014A 9006 crs * ,BLKB DIBSK_LENGTH 
14A 475 ERROR_COUNT: ; Cumulative error count at runtime 
00000000 108 $76 -LONG 0 
14E $78 STATUS: ; Status value on program exit 
00000000 13 rt -LONG 0 
13 481 QUAD_STATUS: ; 10 status block for misc sys. svcs. 
00000000 00000000 136 2 $ -QUAD 0 


VAX/VMS UETP DEVICE 
Read/Write Data 


00000000 00000000 


00000000 00000000 


0000 


0000 


AAAAAAAA 


A72EA72E 


00000000 


00000000 


00000182 


00000000 


QOO00CFO’ 


00000001 


0000014E' 


00000000 


00000000 00000000 


00000000 00000000 


00000000 


Pa 


DWOOCOOS OO HOOP AAAS IIIM DS ONMPPIM MM & PP AOOMMNMMMMNOOM > > > 


00000000 


BB a tt tt a DD a a a a a a a a a ad a a DD 
DWDWOWOrP rrr PrP PP OOOO O00O000 0 00009090909 SII NI NINN NIN NINN NNO OAAAAAAAAAOCOUM 


SOOOOOCOSOCSOOSCOOCOCOCOOCOOCOOOOOOOOOOOCOOOOOOOoOoOoOO 


Ooooonon 


484 INADDRESS: 


OUTADDRESS: 
- LONG 
UNIT_NUMBER : 
WORD 
DEVNAM_LEN: 
«WORD 
RANDOM1: 


- LONG 


RANDOM2 : 
- LONG 


ITERATION: 

» LONG 
PASS: 

LONG 
MSG_BLOCK: 

BLK 


EXIT_DESC: 


ARG_COUNT: 


UNIT_LIST: 
.QUA 

NEW_NODE : 
. QUAD 

PKT_CNT: 


PACK_REMOVED: 
. LONG 


WAWWAIAWWI Ww 


COONAN WIP OOONAU EWN 9 ODNOU EWN OOONAUES WO OONOUS 


PV IVPV IVP LV DIV LIVI VLU IVIL VIVL PULL ULULVIVPULULULU SVS VIVO SISTINE EB Be BY BB EEE 
~ooo 


= 


ARGS: 


<LONG 0 
- ADDRESS EXIT_HANDLER 
[ADDRESS STATUS 


: Head of self-relative UETP unit block 
»ALIGN QUAD 


TEST FOR DR786/DR750 ak dt P+ 9 00:91:93 Yasivee Macro V04 


queue. 


; Argument counter used by ERROR_EXIT 


; Head of unit block circular List 


- Pa 15 
UETPSY  SREIUEYDR7B00.MAR: 1 id (4) 


SCRMPSC address storage 


Current dev unit number 

Current device name length 

Random word #1 

Random word #2 

# of times all tests were executed 
Pass count 

Auxiliary $GETMSG info 


Exit handler descriptor 


Newly aquired node address 


Cumulative packet count for this PKT_CHECK 


Bit mask record of the packets which 
Have been removed from the termination 
Queue. Bit position is directly related 
To the fuction code e.g. the READ bit 
Is 0 and the READ_CHAIN bit is 1 


VE TDR7800 VAX/VMS UETP DEVICE TEST FOR pr7ab/oR750 16-SEP-1984 00:21:03 VAX/VMS Macro vV04- P 16 
V5 0000 Read/Write Data Bree em obs Oasseite Pont bey. cae iceyoR7ob0.mar:1 P29 16, 
00000200 01 cg -BLKL 20 ; Space for 20 arguments 
0000000 es 6 Bad DR pack d 
e 3 t * 
Matdoitessta4 45 "ADDRESS BUFFER oe Se ee eae: ee 
: 23 RATE_BUF : 
00000007 8 48 -LONG 7 ; Buffer for ASCII rate in decimal 
BR 888 19" 49 «ADDRESS .+4 
000021 : 2 -BLKB 7 
17 26 RATE =FLOA 
00000000 00000000 i 37 OUBLE 0 ; Storage for double format rate 
00000000 osi¢ aq RATEAPESC: Desc for the full rat 
. : Desc for 
0000001C" 0 3 337 “ADDRESS BUFFER Re ae ae 
8 7 559 DRIOSTAT: 
00000000 00000000 8 260 .QUA 0 ; DR780 IO status block 
022F $63 ; 
O22F 563 TEST 
O22F 564 OUTPOT ABUE : ; Primary output data buffer 
OO0000A2F be : 203 -BLKB BUFSIZ 
OASE 567 INPUT_BUF : ; Primary input data buffer 
0000122F oA : 258 -BLKB BUFSIZ 
1 F 570 INPUT1_BUF: ; Secondary input data buffer 
QOOO12AF 122F 571 -BLKB 128 
00001080 icy 276 BUF BLKSIZ=.-BUFBLK 
12AF 86 5597 
12AF 86 5574 : 
12AF 065575 ‘ Data transfer command table 
12AF 65576 
19AF $77 EMDTBL: 
Q00002E4" 12AF 578 -LONG CMDBLKSIZ ; Length of command block in byfes 
00001208" 1283 579 -LONG CMDBLK 3; Address of start of command Lock. 
12B7 580 ; Also head of input q 
00001080 1287 581 «LONG BUFBLKSIZ ; Length of buffer block. ‘n bytes 
0000022F* 1288 § -LONG BUFBLK : Base address of the buffer block 
00000878" 12BF -LONG PKT1_AST ; Address of the packet interrupt routine 
000000 1 C3 4 - LONG ; Parameter to be passed to AST routine. 
12C 5 BYTE ; Data transfer rate 
0 1 3 Hy BYTE XFSM_CMT_DIPEAB!- 
12C XFSM_CMT_SETRTE ; Flags byte 
9900 12C9 8 -WORD 0 ; Not used 
000012CF* 12CB 9 -LONG GOBIT $ Address into which the address of the 
! 1 oy ; DR's gobit will be written by Q10. 
00000020 cr 92 CMDTBLSIZ=.-CMDTBL : Define the Length of the command table 
! i 3e :Long word to receive the address of the gobit 
12CF 36 60B1T 
00000000 12CF -LONG 0 


UE TDR7800 VAX/VMS UETP DEVICE TEST FOR DR780/DR750 1 seP-12 0:21:03 VAX/VMS Macro V04- Pa 17 
v04=000 COMMAND BLOCK & PACKETS Beep obs Oassesie LURTPSY SeeIUEYOR7B00.MaR:1 @%° (2) 
} 4 599 -Subtitle COMMAND BLOCK & PACKETS 
4 é ; ; This is the start of the command block from which the DR fetches its commands 
12D 6 : : The commands ore in the form of a block of memory called a D saa which is 
12D 604 ; Linked into a List using the interlocked queue instruction 
12D 605 ; The DR removes the sage: ackets from the INPUT QUEUE processes them 
12D one 3; and replaces them onto ye ERM ination QUEUE. 
12D 607 ; A status eneware is written into each packet before it is connected to 
} ; one ; to the TERM 
| : 919 : The command block must be quad word aligned to support the queue instructions 
00'°00'00'00'00' ! 4 o1¢ hind ALIGN QUAD 0 
000012E0 1 BB 614 INPTGH: .BLKQ 1 : 
000012E8 12E0 615 TERMQH: .BLKQ 1 
000012F0 } ce o18 F FREEQH: .BLKQ 1 
12FO0 ©6618 : Packet to do a nop command. 
188 8 joor_per 
00000000 12F0 e31 "LONG 0 3 Queue forward Link 
00000000 12F4 6 ¢ -LONG QO : Queue backward Link 
0000 12F8 62 «WORD 0 Log area and message length 
08 12FA ose «BYTE XFSK_PKT_NOP@XFSV_PKT FUNC ; Command = nop 
80 12FB 625 -BYTE XFSKTPKTINOINTAXFSV_PRT SINTETL ; No interrupt. 
12FC 626 3 Interrupt unconditionally. 
00000000 iene 627 «LONG 0 ; Byte count not used here 
00000000 1300 628 -LONG 0 ; Va not used here 
00000000 1308 e 3 -LONG 0 ; preteuns a byte count 
; Not used here 
00000000 1308 $3! -LONG 0 ; pesteuss per byte count 
; Not used her 
00000000 130C $38 -LONG 0 ; DOr status longuord for this pkt 
ib & 7 
1318 636 : : Packet to do a halt command. 
1310 638 This packet will cause two AST's to be queued regardless of the state 
1310 639 : of the interrupt control field. 
1 18 640 ; 
Wg 83 
1 15 ak HALT_PKT: H 
00000000 131 644 -LONG 0 3; Queue forward Link 
00000000 1314 645 - LONG 3 Queue backward Link 
44 1318 998 . WORD ; Log area and _message Length 
OOOF 131A 64 «WORD XFSK_PKT_HALT@XFSV_PKT_ FUNC ; Command = halt 
131C = 648 ; Interrupt field Tared here 
00000000 131C 649 LONG ; Byte count net used here 
00000000 1 650 LONG ; Va not used her 
00000000 ! 4 92] LONG : pesteust penery yee count 
00000000 : 5 638 -LONG 0 : Restdusl pol Syte count 
00000000 132¢ 655 LONG 0 : DR status longword for this pkt 


4 18 | 
4 


N 14 
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Vbsc000 COMMAND BLOCK & PACKETS =$eP 138 9:¢3: 6 UETPSY. SRE IUEYDR7B00..MAR: 1 . (4) 
1 5 : 
1 $38 H 
! 228 ; Packet to set self test mode. 
: og ; This packet will get error status if DDI DISABLE is set when it is executed. 
66¢ SET_SELF_PKT: F 
00000000 1 664 LONG 0 : Queue forward Link 
§0099009 1334 665 «LONG 8 ; Queue backward Link 
0000 1338 008 «WORD ;_Log area and passage Length 
8 133A 66 -BYTE XFSK_PKT_SETTST@XFSV_PKT_FUNC ; Command = set self test 
133B 668 ~BYTE XFSKOPKT_NOINT@XFSV_PKT_INTCTL ; No interrupt. 
00000000 133C 669 «LONG 0 ; Byte count not used here 
00000000 1340 670 - LONG 8 ; Va not used here 
00000000 1344 671 LONG ; Residual memory byte count 
1348 ors ; Not used here. 
00000000 1348 67 LONG 0 ; Residual DDI byte count 
134C 674 ; Not used here. 
00000000 134C 675 LONG 0 ; DR status longword for this pkt 
1350 676 3 
1350 677; 
1350 678 ; Packet to clear self test. 
1550 679; 
1350 680 
1350 oe! CLR_SELF _PKT: : 
1350 6 ¢ 5 
00000000 1350 68 -LONG 0 + ¢ Queue forward Link 
00000000 1354 684 -LONG 0 3 Queue backward Link 
0000 1358 685 «WORD 0 5 Log area and message Longgh 
07 135A 686 BYTE XFSK_PKT_CLRTSTA@XFSV_PKT_FUNC ; Command = clear self test 
80 1358 687 -BYTE XFSK_PKT_NOINT@XFSV_PKT_INTCTL ; No interrupt. 
00000000 135C 688 -LONG Q ; Byte count not used here 
00000000 139? 689 -LONG 0 ; Va not used here 
00000000 1364 690 «LONG 0 ; Residual memory byte count 
1368 691 ; Not used here. 
00000000 ieee 69 -LONG 0 ; Residual DDI byte count 
136C 69 3; Not used here. 
00000000 136C 694 -LONG 0 ; DR status longword for this pkt 
13/8 695 : 
137 696 ; 
1328 44 ; Command packet to do a diagnostic write internal 
137 +43 3; This command is used to test the dr's internal silo. 
137 00 ; The number of bytes specified by the byte count are read from memory 
137 701 ; and stored in the silo. 
137 oe 3 
1370 670 
: 70 oe DIAG_WRI_PKT: : 
si4'4'4'64 137 m8 - LONG 3; Queue forward Link 
0000888 1374 §=670 - LONG ; Queue backward Link 
0000 1378 8 - WORD | Log area and message Length 
A 137A 709 ~BYTE XFSK_PKT_DIAGWI@XFSV_PKT_FUNC ; Command = diag write internal 
0 1378 9 ~-BYTE XFSK-PKT-NOINT@XFSV_PKT_INTCTL ; No interrupt. 
00000080 137¢ 71 -LONG 128 ; Byte count is 128 even though 
1380 712 ; Only 124 bytes are valid 


VETDR7800 
V54-000 
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BLOCK & PACKETS green ebe BosSeits LOE Pey. eae iGevoR7o00.man:1 29 


Address of data buffer 

Residual memory byte come 
Residual DDI byte coun 

DR status long word or this pkt 


- ADDRESS OUTPUT _BUF 
«LONG 
«LONG 
- LONG 


Command packet to do a diagnostic read internal command. 


This command is used to read the data in the DR's internal silo. 
The number of bytes specified by the byte count are read from the dr 
and written to memory specified by the virtual address field. 


WA. AANA AANA AAI ANIA AANA AAA AAAI AAO) 


DBWWDWDWDWWOOWOr SPS FP OOWOOOOOOOOWOOOOOOOOMMMC 


M 
N 
1389 oF 
1384 14 
1388 715 
138/ at 
ee 
1 8 
1 720 ; 
3 
139058 
1 724 
1 725 
1 726 
1390 727 DIAG_REA_PKT: ; 
00000000 1390 728 »LONG 8 ; Queue forward Link 
00000000 1394 729 LONG ; my backward Link 
0000 1398 730 «WORD 0 3 tees area and message length 
09 139A 731 -BYTE XFSK_PKT_DIAGRI@XFSV_PKT_FUN Command = diag read internal 
00 1398 P36 -BYTE XFSKIPKTIUNCOND@XFSVIPKTINTCTL ; interrugt unconditional ly 
00000080 139¢ 3 -LONG 128 ~ ; Byte count is 128 even though 
13A0 = 734 ; Only 124 bytes are vali 
0000122F* 13A0 735 ees INPUT1_BUF ; Address of data buffer 
00000000 13A4 736 ONG 0 ; Residual memory poll count 
00000000 13A8 737 “LONG 0 ; Residual DDI byte co 
00000000 } ‘ ie eLONG 0O ; DR status long word | oe this pkt 
1380 740; . 
: 5 oe) ; Command packet to do a diagnostic read DDI command 
1380 28 3; This command wraps the data around on the DDI bus and stores it back into 
1380 744; the silo. 
1380 745 : 
1380 746 
1380 747 READ_ DDI_PKT: ; 
1380 748 ; 
00000000 1 749 -LONG 0 : Queue forward Link 
00000000 1 750 -LONG Q : — backward Link 
0000 1 751 «WORD 0 3 ies 8 area and message length 
1 036 -BYTE XFSK_PKT_DIAGRD@XFSV_PKT_FUN connene = diag read DDI 
1 75 -BYTE XFSK_PKT_NOINT@XFSV_PKT -INTCTL 3; No interrup 
000008 1 754 -LONG 128 ~ ; Byte count = silo size 
00000000 1 755 LONG ; Address field not used 
S444 464 1 £38 . LONG 3; Residual memory byte count 
000000 1 75 LONG ; Residual DDI byte co 
000000: : £38 LONG ; DOR status long word poe this pkt 
1 760 ; : 
1 fl ; Packet to do a write chained command. 
1 oe WRITE_CH_PKT: ; 
9444 1 764 ~ LONG 3; Queue forward Link 
0900p 1 765 LONG 3 eueus backward Link 
0010 1 £06 WORD 6 : area and message length 
8 1 76 -BYTE XFSK_PKT git gay! PKT’ FUN Command = write chained 
8 } res -BYTE <XFSR_PKT_CBDMBCaXF$9_PKT CISEL> 


eX SK ~PKT “NOINTAXT SY. PKT "nteie>: : No interrupt. Send command, 


—————$—$$____, 
15 
VETDR7800 VAX/VMS UETP DEVICE TEST FOR pR788/DR750 16-SEP-1984 00:21:03 YAX/VMS Macro v04- Page 20 | 
Vbae000 COMMAND BLOCK 3 PACKETS oro E 1 obe LT UE TPS? . SRETUETOR 7900 .MAR: 1 (4) | 
130C 779 ; Byte count device message 
130¢ of : Ressage is 16 bytes long 
00000038 13D ie «LONG 59 3 eyte count is to keep 
13€ 77 ; Things on odd boundries. 
Q00022F* 135€ 774 - ADDRESS OUTPUT_BUF ; Address of data buffer 
B85 135E4 of? «LONG 3; Residual memory byte count 
; 13€8 6 «LONG ; Residual DDI byte count 
000000 1 35 77 - LONG ; OR status Leng word for this pkt 
15F a ; Generate and incrementing pattern 
00000000 ! ‘ a4 air ; For the device message. 
= 
13F f 1 eREPT 16 ; Device message is 16 bytes long 
13F § -BYT 
1 Fe 7 X=X+ 
00 13F 784 -ENDR 
183 fa . 
1298 i ; Command packet do to a write device command 
1400 789 WRITE_PKT: : 
00000000 1400 790 «LONG 0 ; Queue forward Link 
00000000 1404 791 «LONG 0 ; Queue backward Link 
0080 1408 rs «WORD 128 ; Log area and message length 
f 140A 79 -BYTE XFSK_PKT_WRT@XFSV_PKT_FUNC ; Command = write device 
98 1408 794 -BYTE <XFSR_PKT_CBDMBCA@RFSV-PKT_ CISEL>!- 
140C 795 <XFSK_PKT_NOINT@XFSV_PKT_INTCTL> ; No interrupt. Send command, 
140C 796 ; Byte Cougs fay "ee message 
140C 797 3 Ressege is 128 bytes long 
000007C5 140C 798 «LONG 1989 ; Byte count is 1989 to keep 
1410 799 s Things on odd boundries. 
0000026A" 1410 800 ADDRESS OUTPUT_BUF +59 ; Address of data buffer 
00000000 1414 801 -LONG 0 ; Residual memory byte count 
00000000 1418 0 - LONG ; Residual DDI byte count 
00000000 141 0 - LONG ; DR status long word for this pkt 
14 04 ; Device message for this packet 
1420 805 ; Even shove? n self test mode 
1420 £06 ; The dr will not look at the message 
000000FF 1? 0 4 “ ; An incrementing pattern is used. 
F =*X 
14 6 809 REPT 128 ; Generate an decrementing pattern 
14 10 -BYTE X 
14 11 X=X-1 
FF 14 \§ ~ENDR 
Fa , 
128 1? ; Command packet to do a read chained command. 
146A 15 : This packet must my be executed in self test mode. 
14A 3 ; A device message is transmitted to never never land to use more 
128 }} ; microcode in the DR. 
146A 1 READ_CHA_PKT: : | 
000 14A LONG > Queue forward Link 
00 14A4 - LONG 3; Queue backward Link 
10 14A8 4 -WORD 16 ; Log area and message length 
2 14AA 5 -BYTE XFSK_PKT_RDCHN@XFSV_PKT FUNC ; Command = read chained 
8 14AB 6 -BYTE <XFSR_PKT_CBDMBC@XFSV_PRT_CISEL>!- | 


ss | 


15 
-SEP- 121: - Page 21 
AX/VMS UETP DEVICE TEST FOR DR780/DR750 16-SEP-1984 00: : 3 VAX/VMS Macro V04 ; 
v 1°86 = COMMAND BLOCK & PACKETS gr SE=19 4 88:83:98 LOE T PSY. SRETGETOR700.MAR: 1 (4) 
>; interrupt device message 
14AC 7 <XFSK_PKT_NOINT@XFSV_PKT_INTCTL Ne aes Grebe Fon smies | 
12a 5 ; Byte count and device message | 
14AC 0 
: t is 59 to kee 
00000038 1480 «LONG 59 ; Things.on odd boundries. | 
3; A ss of data bu 
$5098000 2B 4 tones pen agen r Residual memory byte count 
au900003 Ides #35 tone ; Residual DBT byte’ count | 
— 128 : eam ; Generate and Yncrement ing pattern 
14C 3 ; For the device message. 
00000000 Fe: 40 REPT 16 ; Device message is 16 bytes long 
i? St 
00 1260 2g -ENDR 
18S : 
1409 m4 ; Command packet do to a read device command 
1400 848 READ_PKT: : cee 
80000000 = 1400 $3 “Loe : one ot mt B Link 
eae 128 51 {WORD 128 ; Log area and message length 
0°50 14DA 3 “BYTE KFSK PRT RD@XE SV. PRT FUNC ; Lonmand = read device 
18 1608 8 ae eee “PKT~ ; hen done,send command 
14DC 9-854 <XF$K~PKT_UNCOND@XF $V~PKT_INTCTL> epee Toate auesaaes 
1206 HG 3 boy ice esse e is 128 bytes. 
; o keep 
000007C5 tt See -LONG 1989 Things. on odd boundr ies. | 
’ 3 A of data er 
QOQ00A6A 1eey $20 oADORESS INPUT BUFO? seg h ot menory byte count 
$000000 1268 861 LONG ; Residual oes Sree sos this pkt 
veneer? 9 * 68 oe tete ; Sovice sesee H for this packet 
14F0 $7 : Even though In self test mode 
12 $6 ; The dr will not look at the message 
16F9 6 ; An incrementing pattern is used. 
eerie: 1440 4 TREPT 128 ; Generate an incrementing pattern | 
1660 870 iret | 
00 1240 : -ENDR : 
He 7 : Command packet to do a diagnostic write device message command. | 
: i byte onto the control bus and reads it 
13 , : oe or mpyg hye «AS t Panoved from FREE Q and the data read is | 
132 8 : placed into the message area of this packet. | 
137 9 ; This command can only be executed in self test mode. 
157 j BIAG_WRT_PKT: | 
157 
| 


ee —+ 
| 
i 
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UVETDR7800 VAX/VMS UETP DEVICE TEST FOR pR788/DR750 16-SEP-1984 00:21:03 VAX/VMS Macro V04- P 2 
vate COMMAND BLOCK i PACKETS Set 7 $0593 393 UE TPSY . eRe IUEYDR7BO0.MAR: 1 eget ie 
608 8 7 4 «LONG ; Queue forward Link 
0 7 5 - LONG ; Queue backward Link 
1 7 WORD 3 Log area and message Length 
f 7 WORD XFSK_PKT_DIAGWC@XFSV_PKT_FUNC ; Command = diagnostic write 
f BYTE XFSK_-PKT_NOINT@XFSV_PKT_INTCTL ; No interrupt. 
90000000 157 .LONG : Byte count not used here 
B88 00 «LONG ; Va field not used here 
00000 . LONG ; Residual memory byte count 
0 


e 
; Residual DDI byte count 
; Not used here. 

; DR status longword for this pkt. 


00000000 
00000000 
QOO000AA 


: Not used her 


ONG 0 
MESS: 
ONG “XOAA ; Longword for the device message 

; This is modified dynamically 


me 
netensc ee | 


: Packet to be placed onto FREE QUEUE to receive the message from the 
3; diagnostic write device message command. 


«ALIGN QUAD 

FREE_PKT: 3 
00000000 -LONG 0 3 Queue forward Link 
00000000 LONG 0 ; Queue backward Link 
00000001 «LONG 1 : peseres 1 byte for the incoming 

; Message 

00000000 «LONG 0 ; Byte count not used here 
00000000 «LONG 0 ; Va not used here 
00000000 «LONG Q ; Residual byte conts not used here 
00000000 -LONG Q ; 
00000000 -LONG 0 ; OR status longword for this packet. 
00000000 LONG 0 ; Long word to receive the message byte. 


NO OONOA UE WN 0 ODNOAU EWN | O ODNAU EWN OOo 


; End of command block 


CMDBLKSIZ=.-CMDBLK 
MDBLKEND: 


? 


WOOOOOOOO0000000000000000 000000000000 00 00 Co CD CD OP CD CD CDCD 
PIMP IPNIND 2 2 2 OH MH QOOOOOCOOOCSCOOOOOO0O OO OWMMMcc 


eo tt = 9 = = = = = ) — 8 = 9 — 9 2) 2 —) 9 2 8 2 2 ss SS a ts 


wheal wabeabeabvabvabeabvabeabealeabealealralealululelule lee leew lee we Ww 
DWOWDWDWWDWWDOOP Pr rr OWOOODOOOOOOOOOMDC 


000002E4 


WME 
Oo e- 


Define the length of the 
Command block 


AOOOOOOBWDLOOWDL LOOM OCOOVMUVMIMIMIN = 9 OF OOU FO OFrPOLoO WC 
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TDR7800 VAX/VM TP DEV TEST FOR DR7 7 ~SEP=-1984 00:21: 
we MED RLEEE AGS" DerhOso ocage Hs SELF ECE Sete Bt Bla mas OH 


RMS-32 Data Structures -SEP-1 

15BC 7 -SBTTL RMS-32 Data Structures 

: 43 | 3 »ALIGN LONG 

: +: 4 9 SYSIN_FAB: 3 Allocate FAB for SYSS$INPUT 

1? : 4 § FNM = <SYSS$INPUT> 

160C 934 SYSIN_RAB: ; Allocate RAB for SYSSINPUT 

160C 935 SRAB- 

160C¢ 5 § B = SYSIN_FAB.- 

160C 9 ROP = PHi,- 

1oRe 9 8 PBF = PROMPT,- 

160° 95% PSZ = PMTSIZ,- 

160C 940 UBF = DEV_NAME,- 

1636 3] USZ = NAME_LEN 

165 308 INI_FAB: ; Allocate FAB for UETINIDEV 

1650 944 $F AB- 

1928 945 FAC = <GET,PUT,UPD>,=- 

165 946 RAT = CR,- 

1650 947 SHR = <GET,PUT,UPI>,- 

1650 948 FNM = <UETINIDEV.DAT> 

16A 949 

16A0 950 INI_RAB: ; Allocate RAB for UETINIDEV 

16A0 951 $RAB- 

16A0 828 FAB = INI_FAB,- 

16A0 95 RBF = BUFFER,= 

16A0 954 UBF = BUFFER,- 

16A0 955 USZ = REC_SIZE 

16E4 956 

16E4 957 DDB_RFA: ; RFA storage for INI_RAB 
OOOO16EA 1664 958 -BLKB 6 

16EA 959 

16EA 960 »ALIGN LONG 

16EC 961 SUP_FAB: ; Allocate FAB for UETSUPDEV 

16EC 306 $FAB- 

16EC 96 AC = GET,- 

16EC 964 SHR = <UPL,GET>,- 

16EC 65 RAT = CR,- 

16EC 96 FOP = UFO,- 

1g C 9% FNM = <UETSUPDEV.DAT> 

173C ©6968 

173C 3 2 

2 ? ; Punay FAB and RAB to copy to the UETP unit blocks 

1? : 44 ; The following FAB and RAB must be contiguous and in this order! 

173C 338 

173C 974 DUMMY_FAB: 

173C) 3=—s_ «975 $FAB 

178C 378 

178C 977 DUMMY_RAB: 

178C 378 $SRAB RSZ = WRITE _SIZE,- 

HA. 44.4 USZ = READ_SIZE 

17D S 1 XFLDR_SYSSERROR_FAB: ; Gets possible log file from ucode (dr 

1700 9 : SFAB “FNS = XFLDR_SYSSERROR_LENGTH, - 

17D 9 FNA = XFLDR_SYSSERROR 


o V04 


15 
voe~000 YAL/YSS,UETP DEVICE TEST FOR D870 oe ee et ete eRe, an: 


Pace 24 
RMS-52 Data Structures (5) 


1 & 

1 5 XFLDR_SYSSERROR_RAB: 

1 SRAB FAB = XFLDR_SYSSERROR_FAB,=- 
1 USZ = TEXT BUFFER,- 

1 8 UBF = BUFFER 


15 
TOR? AX/ P - 721: 
ey VAX/VMS UETP DEVICE TEST FOR DR780/DR750 16=SEP 138% 90:91:93 AX/VMS Macro V 


pP 
Main Sted =SEP=1 UETPSY.SR £5GetoR7800. MAR; 1 a 


an 
ow 


) 


4 90 -SBTTL Main Program 
00000 21 "BSECT DR7B.EXEoNOURT , PAGE 
3 »DEFAULT DISPLACEMENT ,WORD 
95 ” 
888 ; This is the main code for the DR780 test. The byte transfer sizes were chosen 
4 :; for hardware dependent reasons. The test sequence is as follows: 
0 399 3 ae do a NOP packet 
0 1000 ; ¢: do a $85 self test mode packet 
8 1 3 ° do a pyte write Fiegnes ic internal packet 
1 ; 4. do a . byte read diagnostic DDI packet 
4 1 3 a do al ‘ecke el read diagnostic I internal packet 
83 1004 ; §- do a 5 e write chained greet et 
000 1005 ; . do a 19 si.” byte write packet 
0000 1 $6 : 8. do a 59. byte read chained _nacket 
0000 1 3 9. do a 1989. byte read packet 
44 1008 ; 10. do a byte prognest te control message packet 
000 1009 ; 11. do a halt pack et 
0000 13iy : 1¢: set the go bie 
0000 1011 ; 13. check the 124. bytes transfered by the diag write/read internal 
0000 a 3 14, check the packet status and packet count 
CU Si a A 
3 oop un minutes are up 
0000 1015 ; 
$000 Jos * 
ENTRY UETOR “M<> ; Entry mask 
0000 44 118 ENTRY UETDR7800,* 
6D OAE7'CF ODE 0008 is 0 MOVAL SSERROR, (FP) ; Declare exception handler 
0007 1021 SSETSFM_S ENBFL 6= #1 ; Enable system service failure mode 
Bote 18 § SOCLEXH_S DESBLE = EXIT_DESC ; Declare an exit handler 
001B 1024 SOPEN FAB = svsin FAB,- 3; Open SYSSINPUT 
0018 1025 ERR ERROR 
Q02A 1 § SCONNECT RAB = ROSIN RAB,- 3; Connect RAB to SYSSINPUT 
O2A 1 ERR = RMS ERROR 
02 E1 039 1 8 BBC S*#DEVSV_TRM ; BR if SYSSINPUT is NOT a terminal 
1E 15FC'CF 038 1 SYSIN FABOFABSL DEY 10$ 
O3F 1030 STRNLOG_S LOGRAM LLER,- ; Allow terminal user to specify... 
O3F 1031 RSLLEN = SOVNAR LEN o* 2 cnet Logi al name... 
7-4 § ao Bit won = DEVDSC 3; ...for the controller to test 
01 50 fh 8 1 CMPL #SS$_NORMAL ; Was a controller specified? 
L a 3 t was - go process it 
2 «1 058 : on BEQ Prot ~CORT_NAME BR if i 
05D 1 § $GET RAB = SYSIN_RAB, ; Read SYSSINPUT... 
5D 1 ERR = RMS_ERROR 3... for the conprot tor name 
- ; Save the name Length 
Aoee ce BO 00 : MOVW sysin RABFRABSW_RSZ, Ss h l 
16 #1 73 +1040 BNEQ proc _¢ CONT_NAME ; BR if we got something 
O14E'CF 14 OD 75 «1041 MOVL #Sss “BADPRRAR, STATUS ; Save an exit status if not 
O2D5"CF OOF 7A 1 ts PUSHAL NO_CTRL ; Prepare for message... 
, oo 7E 104 PUSHL #17 3 «+-€8rg count 
00741132 8F 4 ; : rt: sity ? ETPS_TEXT!STSS$K_ERROR ; coos ignel fh name 
S «eet? 
- 3 «.-go te ; ad setup 
oa’ 1 1046 BRWwW ERROR_EXIT *.s i" f bad 


BS 


lea 


0 1 
QOOAS'CF OF 


80  5F 8F 
60 OOBF'CF cond’ 
OOOF ' CF 
00741039 


F 
Q0000000'GF 04 
OOOA'CF 20 


02 
66 15FC'CF 


45 0152'CF 


e's 
00748328 BF 
00000000 ' GF 3 


VAX/VMS UETP DEVICE TEST FOR 
Main Program 


rahi sent BO. 


AX/VMS Macro V04- 
UETPSY.SRCJUETDR7 


P 
0.MAR;1 - 


8) 


B PROC_CONT_NAME : 
3¢ MOVZWL DEVNAM_LEN,DEVDSC 3 Set the device name Length 
DF PUSHAL DEVDSC ; Make sure... 
DF 9 PUSHAL vosCc ; one fhet the spec ttt controller... 
FB 9A CALL gL a ASE ; .+-1S all uppercase for later comaparison 
C1 A ADOL ‘DEVDSC,R ; Estimate the eventual... 
Ad A ADOW PROCESS NAME i «+-process name Length incl. a 
DE OOAC MOVAL bent NARE Be ; Locate first available byte... ~ 

AD +MAX_PROC_NAME- i «eeiM process name handle... 

AD “PROCESS _RAME_FREE,RO ; ...for device name 
C3 SUBL3 wOROCESS NAME_FREE,= ; Will the device name fit... 

i «2eiM the rene ning space? 

15 BLEQ si 5" ; BR if it w 
3 08 SUBL2 R1,R0 s Eeatettia handle otherwise... 
B OBA nae OVW onAK _PROC_NAME,PROCESS_NAME ; ...and define the maximum Length 
4 08 Ove #*A/_/,(RO)+ ; Separate handle from device name 
2 MOVC3 DEVO bey _NAME , (RO) ; Concatenate handle with device name 
D4 CLRL (SP) : Set the time stamp flag 
OF 1 ST_NAME : zee the test name 


FUETPS BEGIND:STSSK_ succéss. 
CALL a Ge LTBSSIGNA AL 


Ooooooocoo 
Ono ow—- TOW" 


BBC S*#DEVSV 
FABS TABS DEV, 20 

$GETDVI 3 "DEVRAR = § SYS I - 

ITMLST = = aNAD. ITACST,= 


10SB 
BLBC QUAD STAT 
SASSIGN_S DEQNAR = ; BUFFER. PTR,- 


$Q10W_S CHAN = = Te 
FUNC 


E9 


= CCASTHAN 


P 
PUSHAL pOcess NAME 


Py Get TBSei GNA 
208: 


aa ek a ed ad ad dd od td 8 


OOOCOOCOCOCOCOOCOCOOOCOCOCOCOOCOOOO 


WIE & PRN 3 SS TF HH HEMMOOCTI MOO 
O09 0909.09 69 09 09 09 G9 09 SI NIN NINN NNN PAA AAA AAA A UIT 
MOOD NA NE WIN OOD NOU EWN 0 OD NO UE WI" OOWONOAUE WH OOO 
wv 
Cc 
77) 
aC 
Cc 


COONS OOOO WWVIOAOOSWO 


Ot td ot ot ot = I SQOOOOO 


oco7g 
colon 
OOS VOOOOOCOOSOOOOSOOOOCOOoOOo 


ush the argument count 
Set the message code 
Print the startup message 


BEG Soot t flag so we don't print it again 
SSETPRN. Ss PRCNAA 5 or PROCESS _NAME ; ; Set the process name to VETDR7800_x 


; BR if SYSSINPUT is NOT a terminal 


; Get the name o 


; Avoid CTRL/C handler if an 
; Set up for CTRL/C AST handler 


= bios ‘ioe iosm” 


of.. 
- 3; .--device which may abort test 


nable CTRL/C AST's... 
CTRLCAST, 


bose -and tell the user... 
TPS ~ ty) AF lee success’; 3; «--how to abort gracefully... 


error 


us yoRyg00 ay ol UETP DEVICE TEST FOR pr7abypa750 7 Hiab 4 90:91:08 AX/VMS Mi 


acro V04- Pa 7 
Main Program EP=1984 UETPSY. SRETUETDR7S00.MAR: 1 wet ¢) 


10$: 


OOBF'CF 0022°CF o16c"Ce ‘ CMPC DEVNAM_LEN,BUFFER+6,DEV -NAME ; Is this the right controller? 
1 


BNEQ not 
16E4"CF  16B0°CF 06 MOVC3 IAI -RAB*RABSY _RFA,DDB_RFA ; Seve the Gecerd § tie Address 
0020'CF 54 BF CMPB Phe R+4 t Can’ we test this controller? 

BEQL FOUND wl : BR if we can 
SFAO. S$ ptesTe = DEAD_CTRLNAME,-; ...and yell at user if we can't 

OUTLEN = BUFFER _PTR,- 

i = FAO BUF,- 
= #DEVDS 


O14E'CF 14 00 
OO14'CF OF 


15C 1093; 
15¢ (1 ge 3; From UETINIDEV.DAT gre UETSUPDEV.DAT, get information which gives controller 
15¢ (1 ; and unit con iguratt on and lets us know if the setup to run this test was 
} : ! 38 ; done correctly. 
15¢ «(1 38 SOPEN he = INI_FAB,- : Open file "UETINIDEV.DAT" 
15€ 109 = RMS"ERROR 
168 1} 9 SCONNECT RAB = = NT ERROR ; Connect the RAB and FAB 
19h 11 ¢ SMGBLSC_S INADR ="INADDRESS,- ; Connect to UETSUPDEV global section 
17A 11 RETADR = OUTADDRESS,- 
17A 1104 GSDNAM = SUPDEV_GBLSEC,- 
17A 1105 FLAGS = #SECSM_EXPREG 
00000978 8F 39 D1 199 11 $ CMPL 8 #SS% _-NOSUCHSEC™ ; Was the Seceren already there? 
12 O1A0 11 BNEQ 308 ; BR if it w 
1A 1198 SOPEN FAB = SUP_FAB,- 3 .eelse epen “ ETSUPDEV.DAT" 
1A2 11 ERR = RMS-ERROR 
181 1110 SCRMPSC_S CHAN = SUP FAB+F ABSL _STV,- ; Create the global section 
181 +1111 INADR = INADDRES 
181 1118 RETADR = OUTADDRESS,- 
0181 111 GSDNAM = SUPDEV_GBLSEC,- 
3189 1114 fo FLAGS = #SECSM~ EXPREG! SECSM_ GBL 
56 O0166'"CF 0162°CF (C3 Ha 1138 SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 
1E1 1118 FIND_IT: 
bie 1119 $GET RAB = INI_RAB * Get the first record 
O1E1 1120 ERR = RMS “ERROR 
0416'CF DF aire 1121 PUSHAL sont _DESC™ ; Make sure... 
0416'°CF ODF 1F4 «11 § PUSHAL T-DESC 3 that the controller name... 
QOO000000'GF 02 FB O1F8 11 CALLS 2 OTSTRSUPCASE : ...is all we ercase letters 
OOIC'CFR 44 oF 9 OIF 1 4 CAPE Eis BUFFE ; is this a DD BS 
3; Go on 
001C'CF 45 Ht 91 0307 11 § CMPB #*A/E/ BUFFER : Is this the _ “ the file? 
D2 12 O20D 11 BNEQ FIND If : Continue on if n 
OOAO'CF ODF O2OF 1128 PUSHAL DEVDSC ; Push device not "aaneertel message 
endl | ad 8 3 1 ; an  eetae NAME ; Parameters on the stack 
00748333 8F DD 8 19 1131 PUSHL #UETPS_DENOSU 
88 FO 8 if 1 $ INSV os TSeK “ERNeRiTY,- ; Set the severity code... 
6E 88 8 2 1134 #STS$S_ SEVERITY, (SP) 
O14E'CF oF 3 1} 5 wy (SP), » STATUS 3 «and save it as the exit status 
OA42 v3 $ BRW ERROR_EXIT ; Exit in error 
3 11 3 
1140 
ao 1143 
ts 1108 
GA 1144 
4A 1145 
4A 1123 
4A 114 
; 1133 
114 


MOVL $_BADPARAM, STATUS ; Set return status 
PUSHAL BUFFER. PTR S aes 


UETDR7800 
v04-000 


00741132 : 
oF 


So 


6 
6 
se as 
001C 55 
OOI1C'CF 44 
OO1C'CF 45 


—CO—" DNWOOOM 


—T07R STN 


coed 
00741132 8F 
0980 
0123 

54 8F 
AE 

01 

02 
016A'CF 


040€ ' CF 
00000000 ' GF 36 
CE 


0020'CF 


05. 2 

0022°CF 

61 

OOAO'CF 016C' 
¢3 

OOBF 'C 

57 
58 


0162°DF 56 OO1C'CF 


0162"DF 56 OO1C'CF 
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VAX/VMS UeTP DEVICE TEST FOR DR780/DR750 16-SEP-19 21:03 VAX/VMS Macro VO Page 
Main Progra g- Hiatt Bo: gh: 6 (CUETPSY.S oe R7B00. MAR;1 . 2, 
DD ae PUSHL E ees 
43 eF 1} PUSH A ETPS_TEXT!STSSK_ERROR ; ... 
Bf £8 y 7 BRW ERROR_EXIT 3; We can't test what we can't test 
79 5 FOUND_IT: 
79 2$ $GET RAB = INI_RAB,- 3; Get a record 
79} ERR = RMS-ERROR 
DF 8 1128 PUSHAL CONT_DESC ; Make sure... 
OF 11 PUSHAL 5 3 «eethat this Line... 
FB 1160 CALLS #2,G"STRSUPCASE F scone all uppercase letters 
74 97 1161 CMPB 0s #*A/U/, BUFFER : Is this a uc CB 
1 9D 11 § BEQL 30$ ; BR if it 
91 SF 116 CMPB #*A/D/ BUFFER : Is H's. : DDB? 
13 AS 1164 BEQL 20$ : BR if y 
91 A? 1165 CMPB #*A/E/ BUFFER ; Is this, the end? 
13 8 m 1198 108 BEQL 20$ ; BR if yes 
DF QO2AF 1168 PUSHAL ILLEGAL_REC ; Then this is an error in the record 
DD 0283 1169 PUSHL 1 ; Push the error message 
DDB 0285 1170 PUSHL M#UETPS_TEXT!STSS$K_ERROR ; Push the signal name 
D O2BB 1171 PUSHL ; Push the temp arg count 
1 8 BP 1126 208 fh Ried ERROR_EXIT ; Finish for good 
31 +0 8 Vie 30s BRwW ALL_SET ; Found DDB or END 
91 8 C 1126 CMPB #*A/T/ ,BUFFER+4 3; Is the unit testable? 
12 03c9 117 BNEQ  FOUND_IT : BR 
DD O2CB 1178 PUSHL 3; Flag to ignore blanks when converting 
DD pscb 1179 PUSHL #2 ; Set byte size of results 
DF O2CF 1139 PUSHAL vat NUMBER ; Set address to pocetue word 
DF 0203 1181 PUSHAL C ; Push string addres 
FB neot 11 § CALLS Pa, FOTSSCVT_TI_L ; Convert ASCII unit *y to Soe aan 
e DE 11 BLBC ; Don't allow bogus unit to pass 
O2E1 1184 SKPC #rA/ /,#MAX_UNIT_DESIG,- ; Find out where unit number really is 
02E4 BF F BUFFER+6 
D7 E7 1186 DECL RO 3 Units must all be at least one digit 
38 E9 1187 SKPC #*A/0/,RO,(R1) : Skip Leading zeroes 7. the unit 
D6 ED 1188 INCL R s soppensate or DECL ab 
Al EF 1189 ADDW3 RO,DEVNAM_LEN,DEVDSC : Calculate device’unit string Le Length 
3¢ F7 Vy MOVZWL VNAM_LE »R2 3; Offset to unit number in 
28 FC 119 MOVC3 (R1J bev gee she 3 Append unit number to device 
0 1198 $GETDEV_ g BEVNAR = BEVDSC,~ : Get the device characteristics 
= 
9A 1 1194 MOVZBL DIBBUF+DIB$B_DE VELASS 8 ; Save the device class 
9A O31C 1195 VZBL DIBBUF+DIB$B-DEVTYP $568”. “Save the device type 
; 1 1138 SFA. § CTRSTR = CS1,- 
= u oe” 
’ 13 9 TBUF Fa0 BUF 
= Ps 
; 1 1199 : = R8 e it into a string 
39 6 1200 MATCHC BUFFER,R6, @OUTADDRESS’ : : a? the devies class and type 
13 O33F 1201 BEQL 4 § :'BR if it was found 
41 1 $ SFAO_S CTRSTR = CS3,- ; Try for full class support 
41 1 OUTBUF = FAO. BUF ,- 
341 1204 Pl = R7 
3 38 ! 2 parcut $6 BUF FER.RG.BOUTADDRESS i fing the gevice class only 
1 3 not foun 
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F 1207 40$: 
55 OOOF'CF A 3 MOVZBL TEST_NAME,R5 ; Get the test inpne Length 
OO17"CF 6 gf 8 4 1 : Cares RS (R3), TEST_NAME+8 ; Are we the right test? 
if 6A 10 se BEaL 6=-«6 OF : BR if yes 
in eh DF sf 1 \§ PUSHAL DEVDSC ; Push device not supported message 
OOAS'CF ODF 121 PUSHAL PROCESS_NAME ; Parameters on the stack 
02 dD 74 1214 PUSHL #2 ; Push the argument count 
00748333 8F ODD 76 «1215 PUSHL #UETPS_DENOSU 
0 FO 7C 1216 INSV #STS$K_ERROR,- 
0 7E 1217 #STSSV~SEVERITY,- 
6— QO ? 18 #STS$S" SEVERITY, (SP) ; Set the severity code. 
O14E'CF 6E 00 81 121 MOVL (SP) ,STATUS 3 and save it as the exit ovatus 
04 D 0 56 1530 PUSHL #4 : Push the partial arg count. 
O8E5 1 0388 1221 BRW ERROR_EXIT 3 «.-and split this scene 
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¥p6 08 
6 CUETPSY.SRCJUETDR7800.MAR; 1 (8) 


B 1223 ;+ 
B 1224 ; The following code dynamically allocates enough memory for a unit block, 
B 1225 ; a device dependent parameter area and 1/0 buffers. The unit block is inserted 
8B 1 § ; into the queue header UNIT_LIST. It then initializes the unit block. 
8B 1 ; A comment indicates where the device dependent parameters should be 
4 ! 8 ; initialized. The unit block format is as follows: 
B 1 0 : $eeeceamemeworane + eeeececo 
B 1231 ; UETUNTSL_FLINK ! ! 
B 1 § 4 bewecwmmaese areas + ' 
B 1 3 UETUNTSL_BLINK ! ! ! 
i 1 4 3 f¢oeenmnmeneerce= $oeeas ! 
B 1235; UETUNTSB_TYPE ! ! ! 
0388 1 8 ; pe wmonmewatoannd ' 
0388 1 3 UETUNTS$W_SIZE ’ ! ! contains DEVDEP_SIZE + UETUNT$C_INDSIZ 
b3en 1530 UETUNTSB_FLAGS |! , 
0388 1 40 3 = fora $ poenn eae + ! 
paee 1241 ; UETUNT$W_CHAN ! ' ! ! 
8B 1 2g $ pmerecncnmne beocaeasaws + ! 
038B 12435 ; UETUNTSW_FUNC ! ! ! ! 
0388 1266 5 ee a teoceeee + teeeee UETUNTSC_SIZE 
Oaae : rr : UETUNTSL_ITER ! ! 
3 ecseowaraoaeeanees + 
038B 1247 ; UETUNTST_FILSPC ! ! ! 
038B 1248 ; YANINININININING! ! 
038B 1249 ; NAMS$C_MAXRSS byses ' 
0388 1250 ; VININTN\ININININZ! ' 
0388 1251 ; ' ! ! 
Oaae 1 26 2 UETUNTS$K_F AB ' eeeeceoececoecen ' ' 
388 1253; : ' ! 
038B 1254 ; LAN/\ININININING! ! 
0388 1255 ; FABSC_BLN bytes ! 
bane 1256 ; VANINJVININININZ! ! 
388 1257 ; ! ! : 
0388 1258 ; UETUNTS$K_RAB tewwenenneen---- + 
0388 1259 ; } ! ' 
0388 1260 ; INJVA\A\/\AN/N/N ! 
038B 1261 ; RABSC_BLN bytes ' 
038B 1262 ; INJNANZNININININ : 
B 1263 ; : ! v 
38B 1264 ; UETUNTSK_DEVDEP +--------------- + ooce--- 
B 1265 ; ' ! ng 
8 1 96 3 INAVAVJVANAN/NAN! ! 
1267 ; user defined toeeee DEVDEP_SIZE 
; ; } o8 3 tNANANINANINANIN ! 
° . © Vv 
3 1 $° 3 feewccecceccoeca 4 eeccece 
BS teri : READ/WRITE buffers ! ' « 
1 4 s INANANANANAN/NAN ! 
1275 ; user defined teoee= WRITE_SIZE and READ_SIZE 
a ! oe 3 tINININININININI ! 
: ; ' v 
; B 1 8 2 -remeecee sen caces + eeeecece 
B 1277 ;:- 
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Main Program 


B 1279 
B 1 9 
B 1 
5D 1 § 
b8 A 1 
A 1284 
B0 A 1285 
B 1 § 
g B 1 
2 B 1288 
28 8 ef i 5 
me Sea. 1331 
D 309 1 35 
D D 1294 
90 4d 1295 
8 DC 1296 
DE 3DE 1297 
O3E1 1298 
O3E 1299 
O3E 1300 
O3E 1301 
31 O3E3 1302 


~3Eb=19b6 04:95:48 
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; Get a new node of demand zero memory 


Put the new node in the unit List 
Save a copy of its address 
Set the structure type 


Set the structure size 
; Set the device name size 


Save the device name 
; Save a FAB and a RAB away 


Save the FAB address 
Save the RAB address 


; Set the FAB address in the RAB 


Set the FNS field in the FAB 
Set the FNA field in the FAB 


60$: 
SEXPREG_S PAGCNT = #PAGES,- : 
RETADR = NEW NODE 
INSQTI @NEW NODE ,UNIT“LIST ; 
MOVL W RODE, R6 F 
MOVE OETUNTSB_TYPE(R6 : 
MOVW  #UETUNTSC_IRDSIZ+DEVDEP_SIZE,- 
ETUNT$W_SIZE(R6) . 
OVB_ DEVDSC,UETUNTST_FILSPC(R6) 
MOVC3 DEVDSC. aDEVDSC+Z,- 
UETUNTST FILSPC+1(R6) ~~; 
MOVC3 #FABS$C_BCN+RABSC_BLN,- 
UMMY_FAB,UETUNTSC_FAB(R6) 
MOVAL UETUNTSK_FAB(R6) ,R7 ; 
MOVAL ETUNT K"RAB(R6) RB ; 
MOVL R7,RABSL-FAB(R8) : 
MOVB -UETUNTS$T FILSPC (RO) 
FABSB_FNS(R7) : 
MOVAL UETUNTST FILSPC+1(R6) .= 
FABSL_FNA(R7) : 
3; Set the device dependent parameters in here 
BRW FOUND_IT ; 


Do the next UCB 


KMITOMNVOWZ EPH KOCH ITO MMIODZ EF KOCH ITO MMOOCWOZ EP KC KH TO MMIOOOZ Er ACK TO™MIooWw 
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E6 1 3 
e6 1 ¢ ; Arrive here when we have the geviee configuration. In normal or loop forever 
e6 1 § ; mode, set a timer far enough in the future such that we can do a reasonable 
E6 1 ; set of tests before the timer expires, but if our device gets hung, the 
—6 1 88 3; program won't waste too much time before noticing. Let one-shot mode be a 
E6 1309 ; special case. 
E6 1310 
£6 1311 ALL. SET: 
0198°CF 3 &6 1 \§ TSTL NIT_LIST 3; Anything to test? 
=e EA 131 BNEQ ; BR if yes 
O33C'CF ODF EC 1314 PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
1 DD FQ 1315 PUSHL 3 «+-argument count... 
00741132 8F dD F 1 1§ PUSHL M#UETPS_TEXT!STSSK_ERROR ; ...signal name... 
03 OD FB 131 PUSHL 3 ...and parameter count 
O14E'CF 14 9 FA 1 18 MOVL a#sss 6174 gtemasongien: ; Set return status 
086E 1 ine 1333 10 BRW ERROR_E i ...and give up, complaining 
OOOA' CF 04 A8 begs 1321 BISW2 #SAFE_TO -UPOM FLAG ; OK safe to update VETINIDEV.DAT now 
407 1 ‘ SASSIGN_S CHAR CHAN 
407 1 DEVNAM = > bev vse : Get a channel 
418 1324 SLKWSET_S INADR = CMDBLKDES ; Lock command block into WS 
255 1325 ; 11/780 ucode bug in QUEUE 
0427 1326 : goatryestone 
52 Q0000000'GF 9A 0427 1327 MOVZBL gets XFMXRATE,R2 Get the current max xfer rate 
12C7°CF a oe 94) 1328 MOVB Ae ithe ¢mtT Rate Set the data transfer rate 
53 00000100 8F 3¢ C3 04 1369 SUBL3 aci<aex afer rete inte AS 
54 COS 6E 0438 1; 0 CVTLD R : Convert to double float format 
56 0 3250s O43E 1 31 OvVF #7F40. .R6 ; Set the double constant 
7 O3C9"CF DE 0441 13 ¢ MOVAL ODR780,R Set default device name 
OOpB'CF O0'BF 91 0446 13 CMPB. WTS _ bR750, DIBBUF +D1B$B_ bevivee ; ; Is it a 750? 
0c 12 044C 1334 BNEQ 15$ ~ ; BR if not 
56 goons a8 8F 50 meee 1335 MOVF #*F12.5,R6 : Set new convertion rate 
57 OSCD°CF ODE beeA : 37 158 MOVAL DR750,R7 ; Set correct device name 
0217"CF 56 54 67 Q45A 1338 DIVDS R4,R6,W*RATE_FLOAT 3 S07 (es6~nss xfer rate) 

03 DD 0460 1339 PUSHL #3 ; Push # of digits in the fraction 
i45 F Re8e 1340 PUSHAL W*RATE BUF : Push string storage desc adr 
0217'°CF F 0466 1341 PUSHAQ W*RATE FLOAT : ee adr of float ng number 

00000000'GF 03 FB Q46A 1 +g CALLS #3 ¢FORSCNV e the number a string 
0471 134 $FAO_S eat weRATE Eapest, W*FAO burs - 
0471 1344 R7,R : Make 7 the yeetens 
O21F'CF OF O4BE 1345 PUSHAL wrRAT : Push the string address 
DD 0492 1346 PUSHL ; Push the arg count 
0741133 8F DD rh 1347 PUSHL aVeTPS rer ere... INFO : — the signal name 
00000000'GF 03 FB O49A 1348 CALLS Ga Tes 3 Report the {pessese 
04A1 1349 SCRE max § CHA : make a mailbox 
04B4 1350 SGETCHN7S CHAN = MBCHAN,- 
484 1351 RIBUF = DIB 3: get the unit number of the mailbox 
4CA 1 26 SCREPRC_S IMAGE = PROCE 
4CA 135 MBXUNT = DIBSUF S61 BSW 
4CA 1 34 ERROR = XFLOR r SYSSERROR MNEesc.- 
4CA 1355 PIDADR = PID : Toad the ucode 
4F4 1 2$ SWAKE_S PIDADR = PID ; wake XFLOADER.EXE from the HIBER 
501 135 SSETIAR_S DAYTIM = ONERIN.= ; Catch hungs by ucode loader process 
501 1 e8 ASTADR = 100$,- 
501 1 REQIDT = PID 
516 1360 $Q10W_S FUNC = #10$_READVBLK,- 
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v2Bo8" Kea seve tes ron sarbrorso ocaeesnes BA-G1 43 HECPE Sette Rifles" cl 
16 1361 EFN = #i,- 
16 1 CHAN = MBCHAN,- 
16 «14 a 2 pyc reR.« 
1364 P2 = #256 ; read the ucode load results 
: 1365 SCANTIM_S REQIDT = PID Ucode loader process finished 
15 OO20'CF €E8 328 136 BLBS BUF FER+ACCS$L_FINA NALSTS,208 ; check the load status 
8. EF DD 4D 1 83 PUSH BUFFER+ACCSL_FINALSTS ; bush the failure code 
: 1'CF ODF : 136 PUSHAL ULOAD_FAILED ; Push failure message address 
0 DD O05 ; 1 § USH rs " ; Push arg count 
00741132 8F dD 5 1 $ PUSHL #UETPS_TEXT!STSSK_ERROR ; Push the signal name 
4 D Q55D 1371 PUSHL #4 : oven eine temp arg count 
070€ Bf 22e } te 208 Rw ERROR_EXIT ; 
388 1374 : SOPEN FAB = XFLDR_SYSSERROR i f ucode loader find | errors? 
50 00000000'8F 1 360 i CPL #RMSS_FN FNF RO if there was no SYSSERROR Vile... 
00 4 sf ! 7 308: BRW 0$ 3 «..then BR around file copy 
09 50 £8 $359 1 § : LBS RO, 408 ; BR if we can read the file 
17D0'CF OF 57C 1380 PUSHAL XFLDR toa FAB ; If we can't read it. 
OBCA'CF 01 FB 0380 ! ei 408 CALLS #1,RMS_E i «e-ethen complain and bail out 
ae es " $CONNECT RAB = > xrLoR SYSSERROR_RAB,- 
0394 : $2 50s: SPUTMSG_S MSGVEC ="XFLDR_COPY_START ; Announce our intent to copy 
bens 1 Ha " «$GET ~~—s- RAB_ = XFLDR_SYSSERROR_RAB ; Read a Line from the file 
50 00000000'8F 01 0580 1388 CMPL #RMS$_EOF ,RO : hee we Sevend the file's end? 
a 38° 1389 BEQL 7 : BR out of loop if we are 
9 6 E8 baeo 1390 BLBS RO,60$ ; BR if we were able to read a record 
1890" er DF O5B8C 1391 PUSHAL XFLOR gf f+ ee RAB ; If we were not able to read it... 
OBCA'CF 01 FR pace 1 38 08 CALLS #1,RMS_E 3 ««ethen complain and bail out 
1842°CF B0 §ace i 3 _— MOVW AT He “RS? BUFFER PTR ; Get the size of this Line 
ss 05¢¢ i 38 poyrnss MSGVEC = XFLDR_COPY_LINE ; Report contents of the Line 
C6 11 O5DD 1397 BRB “3o$ ; Loop for the next Line 
pap 1 38 shone SPUTMSG_S MSGVEC = XFLDR COPY =f IRISH ; Announce the end of the file 
Fe t+ SCLOSE gi. = hater pat SERR ROR_ 
He: 1498 SERASE pA = XFLBR SYSSERROR_ FAB,- 
SFF 1? t ans ERR = RMS_ERRO 
6 E 1405 : STRNLOG_S LOGNAM = ; Get the run mode 
60E 14 RSLLEN = BUFFER PTR,- 
ri j 12 ; 1CB2 CBIR = FAD, BUF Convert to upper case 
oor ter nal 9 a § is ches #A70/ BUFFER as o's 2 one shot? 
' 4 1611 BISW2  #TEST_OVERM,FLAG S End after one iteration 
— As ¢ 9 1716 BRB RESTART ; Skip the SETIMR 
5 1414 100$: Reached by timer AST if wicrecees loader subprocess fails to 
1415 i return, on gn schedule. Assume it's hung. 
04 AC 008 D 1213 TSTL 04 CAP) ; Was the process even started? 
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Main Program ~SEP=1984 04:55: UETPSY.SRCJUETOR7800.MAR; 1 (10) 
01 2 40 161 BNEQ 1108 ; BR if it was 
4 1? 1108: RET : It wasn't - let mainline code handle 
OO77"CF §6DF «(0643 (1401 " PUSHAL XFLDR_HUNG ; Set up an error message... 
1 DD 0647 14 ; PUSHL #1 
00741132 BF DD 0649 14 PUSHL #UETPS_TEXT!STSSK_ERROR 
3 DD O64F 1426 PUSHL : 
061C 1 1 1425 BRw ERROR_EXIT ; «..and bail out 
. ¢ 12 § TIME_IT 
654 14 : ~" "$SETIMR_S DAYTIM = THR EEMIN, - - ; Set timer AST to 3 minutes 
654 14 ASTADR = TEST TEND 
654 14350 aS i 


ae 
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vb Test the FR PBDI DAS S0 eset 80:93:93 UETPSY.SRCJUETDR7800.MAR; 1 ° dip 
$67 14 § -SBTTL Test the DR780/DR750 
of 14 RESTART: 
6 4 1 ¢ PRAM AKA AAA H AAA AAAAAAKEEAAAAAAAKeAeeeKeKKeeeKeKeeReAeeeeeeeeeeeeteeeeeeTeTeee 
6 3 
687 1 § ; Device test specific code goes here. 
$7 14 8 ; At this point the device designation is in location DEV_NAME pointed to by 
060 1439 ; descriptor DEVDSC. The device is known to be supported and testable by this test. 
444 1729 : To leave successfully BRW SUC_EXIT, to leave in error BRW ERROR_EXIT. 
rots 1226 ITIIITIIIIIIIIIITITITIIIIL LLL L iii TTT ii iiiiiiiiiiiitiii 
144 
OUOA'CF 10 BA ges 1444 BICB2 #FPAC_FLGM,FLAG ; clear the first packet AST flag 
66C 1445 SSETIMR_S DAYTIM = TENSEC,- 
66C 1228 EFN = #EFN2,- 
66C 144 ASTADR = HUNG_TEST,- 
Bose 1448 REQIDT = #1 ; set 10 sec watch dog timer in case 
be F 1449 ; the clock jumpers are missing 
67F 1450 $Q10_S FUNC = #10$_STARTDATA,- ; Initialize the sappine pointers 
067F 1451 CHAN = CHAN,=- ; channel must have been assigned. 
067F 1458 EFN = #EFNI,- : EF 
067F 145 IO0SB_ = _DRIOSTAT,- : 10 status block. 
O67F 1454 ASTADR = I0_COMPLETE,- : ast to be taken when dr halts | 
O67F 1455 P1 = CMBTBL,- ; address of the command table | 
067F 1938 P2 = #XFSK_CMT_LENGTH 3; length of command table. 
000A‘ CF 09 33 BOAG 163 B118 #CC_FLGM!ERR_FCGM.FLAG ; gon rol C or error occured? 
: br no 
061D 31 bene 1023 S$ BRW ERROR_EXIT1 ; br if yes 
5A OS6C'CF ODE etd 1461 MOVAL PKT_TBL,R10 3; set pkt address pointer 
5B 12D8'CF DE 0685 1296 MOVAL  INPTQH,R11 ; set the queue header pointer 
59 6A 00 OQ6BA 146 MOVL (R10) ,R9 3 get the packet address 
1C AD D4 «(06BD «(1464 LRL —- XFSL_PKT_DSL(R9) : init the DSL 
b6cd 1465 QRETRY ERROR = BADQUEUE,- 
06CO 1466 INSQTI @(R10)+,FREEQH ; put a free packet on the free queu | 
06D0 1467 -REPT  PKT_COUNT- 
06D0 1468 MOVL (R10) ,R9 3; get the packet address 
06D0 1469 CLRL = XFSL_PKT_DSL(R9) : init the DSL 
06D0 1470 QRETRY ERROR = BADQUEUE,- 
a Be08 190) girth a(R10)+, (R11) 3 put a command packet on the input 
12CF ‘DF 01 dO grep 1298 OVL #1,aGOBIT : give it heck! 
07C5 1474 SWAITFR_S EFN = #EFN : wait for further AST’s or iteratio. 
OOOA'CF 6° 3 a3 1322 Bite oC oF LGMSERR_FLGR.FLAG : centres or error occured? 
O4F5 31 £05 1477 re BRW ERROR_EXIT1 : br if yes 
O176°CF D6 0708 1479 ; INCL ITERATION ; increment iteration count 
O1AC'CF 00006030 8F DO O7DC 1480 MOVL ass? FUNC ,PACK_REMOVED 3 mask out unused packet types 
OA46'CF Oo F aps 1481 CALLS #0,PKT_CH 3 check the gorhes status and count 
000A‘ CF 03 3 OrEA 1} ¢ B118 . RR_FCGM. FLAG : were any D L's bad? 
0409 31 Fl 14 4 ss BRW ERROR_EXIT1 ; fatal error 
01A8'CF 0p 4 ae 14 6 : cMpe #PKT_COUNT .PKT_CNT ; right ruaber of packets? 
55 D4 O7FB 1488 CLRL RS > set starting position 
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v het a test the 5R7BOIDAISO ety 7 eT UETPSY.SRCJUETDR7800.MAR; 1 df) 
3; set starting size 
; CF pe a 129 MOVAL ARGSRD mn ene ; set arg pointer 
™ 38° 5 Dd 1491 MOVL #PKT COUNT, (R2)+ 3; set expec ted pkt count 
f, CF D 149 MOVL PKT_CNT,(R2)+ 3 set received pkt count 
82 8 a8" CF C 1298 SUBL3 PKT_CNT,#PKT_COUNT, (R2)+ ; set the argument count 
. if 1298 _ FFC R5,R8,PACK_REMOVED,R6 : find a missing packet 
en. a 3 iF 1A 1496 BEQL Seat 
3 date the size 
8 Oy 28 ; 26 1298 ADDL Re ATOR eek RS ; update the starting position 
#2 } 3 f 4 1499 MULL RO. 3 make it a byte displacement 
56 00009¢e4 SF 6 7 1300 ADDL #NAME TRL .R6 ; neke it " og allo ties 
; i if ; 1308 BRE bg : : get the next packet that is missin 
ORES 1804 °* —SEAOL_S CTRSTR = CS6,- 
08 1808 ~" OUTLEN = BADRPKT,- 
0833 150 BUF = FAO BUF,- 
08 1307 PRMLST = ARGS ; convert into a string 
! - 
007410E2 8F dO th 1388 MOVL SVE ITE ABENOO LSTSOR_EAROR Fat an aati oteeue 
$300" CF DF 0853 1510 PUSHAL BADRPKT 3 push the senserustes message 
DD 0857 1511 PUSHL # ; pus arg cou aa 
00741132 8F 0D +t 1216 a He #UETPS_TEXT! STSSK_ERROR _e pe ay Re 
oui O80) 1333 508 BRW ERROR_EXIT : bail out 
Spee 18] S-3 le the control message 
19" Blow tEOT'G BE HRS Ih SEO BHAGSCBLGRESEGDIAGCML_MESS soople th ote 
13 0870 1518 BEQL 6 > ; br no 
0193 3 a82 12}) ann BRwW SUC_EXIT 3 br if yes 
= - ' 
FDOEF 31 0875 1 1 : BRw RESTART ; do it again! 
o878 3 : Packet AST routine | 
a878 1358 mutt AST: “M<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> | 
54 OOOA'CE 04 ES 087A 13 , BBSS_ - #FPAC_FLGV,FLAG,10$ — * ; only check data on the first packe 
+h: a 
1233'CF 0233°CF  O07C BF 5S 0 80 13 8 CMP CS #104, OUTPUT. UF +4, INPUT1_BUF +4 check the 
. be 0 se 1530 INCL ERROR_COUNT ; bump the cum. error cnt 
on 5 BR 0 #9 1531 MOVZBL Ro) = tSP? ; po: bed by .. 
sf $1 e 89 : 5 SoBL ee AO pf2e e <SP) : get the byte number 
= nS 5 3 4 PUSHL a0 7 : push the unit number 
ep OF Hi 12 5 PUSHAL DEVD 3; push the controller name 
00+ 90 SF DD A 15 § PUSHL #*XF0005 monn : a arg cqunt, Tee 
OR fe ee Reem ear aaron time Be leh 
AS'CF ODF 4 1539 PUSHAL PROCESS NAME 
D 8 1540 PUSHL #*x10002 3 push arg count 
Bo7eB0es BF E 1541 PUSHL #UETPS$_ERBOXPROC!STSSK_ERROR i push the signal name 
00000000! & , PB C4 «(1 4g CALLS #11 ,GeCIBBS1GNAL ox sence 3; output the message 
007480)2 F D C6 154 OVL iw K_E e i oust tho stondk heen 
mer BBL HBS tos 
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Test the DR780/DR -SEP-1984 UETPSY.SRCJUETDR7800.MAR; 1 (11) 
007C 8F 00 becallt teeth: 2c + 1546 MOVCS #0, INPUT1_BUF ,#0,4124,INPUT1_BUF+4 ; clear the data buffer 
04 e ! rt 4 RET 
er .Y 5 ; Watch dog timer will come to here if the DR does not complete one 
F} } ; execution of ail packets within 10 seconds. 
—1 1 HUNG_TEST: 
OFF E 1 WOR “M<R2,R3,R4,R5,R6,R7,R8,RI,R1I0, R11> 3; entry mask 
OA'CF 08 8 E3 1554 BISB2 #ERR_FLGM,FLAG ; set the error flag 
O14E'CF 00 022C 8F D E 1555 MOVL #Sss$ sTINEOUT, STATUS ; Set the exit status 
14A'CF 06 rl 1 2 INCL ERROR_C ; bump the error counter 
4AO'CF OF FS PUSHAL 3 gst rf No i push the constructed message 
000F 09) F DD 8 F9 1328 PUSHL 1PS I 3 push arg count 
0741132 8F ODD FF 1559 PUSHL Herp TEXT! STSS$K_ERROR ; push the signal name 
014A" CF DD 0905 1560 PUSHL ERROR_COUNT 3 push cumulative error count 
OA8'CF DF 0909 1561 PUSHAL PROCESS NAME 
$30) 002 8F DD Base 1206 PUSHL #*X1 3; push the arg count 
48022 8F DD 091 156 PUSHL yp it, ERBOXPROC ! STS$K_ERROR ; push the signal name 
wooo GF O07 FB 0919 1564 CALLS LIBSSIGNAL ; output the message 
0920 1565 $SETEF Ss *LENSAEENI ; time to wake up 
04 0929 1566 3 go and fail 
Q92A 1567 IO_COMPLETE: 
0000 092A 1568 WORD OQ ; Q10 completion ast entry point 
09 4 1569 SCANTIM_S REQ jets #1 3; stop the watch dog timer only 
01 0227'CF B1 09 1570 CMPW = DRIOSTAT, #SS$ NORMAL ; check the IO status 
13. 093c 41571 BEQL 10$ : br if OK 
O14E'CF 0227'CF BO 43 1376 MOVW DRIOSTAT,STATUS ; save the status 
833 "CF D6 0945 157 INCL ERROR_COUNT ; bump the error count 
7°CF DD bb 1574 PUSHL ODRIOSTAT ; push the DSL 
O28F 'CF OF 940 1575 PUSHAL START DATA. FAILED 
000F 0 3 F OD 0951 1576 PUSHL #*X 
00741132 8F DD 0957 1577 PUSHL #UETPS_TEXT!STSSK_ERROR 
14A'CF DD 095d 1578 PUSHL ERRO R_ COUNT ; push cumulative error count 
AB'CF DF 0961 1579 PUSHAL Prot ESS NAME 
000 Sees 8F DD 0965 1580 PUSHL 00 ; push arg count 
48022 8F DD 096B 1581 PUSHL AuETPS E ERBOXPROC ! STSS$SK_ERROR 3; push the signal name 
00000000'GF 08 FB 0971 15 ¢ CALLS TB$SIGNAL ; Output the message 
OOOA'CF 08 88 i910 13 F ae BISB2 TERR. FLGM,FLAG : set error flag 
0227'CF D4 O97D 1585 CLRL DRIOSTAT i; reset the DR's 10 status block 
04 0981 15 $ RET 3; and return 
9 1587 TEST_END: 
00 g 9 1 8 .WOR 0 g anety mask 
OOOA'CF 02 9 1 B1SB #TEST_OVERM,FLAG ; set the test ended flag 
4 +H 1339 RET 3 return 
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98A 1593 ! 
98A 1594 SUC_EXIT: 
98a 1595 STRNLOG_S LOGNAM = MODE,- 
98a 1 36 RSLLEN = BUFFER_PTR,~ 
98A 159 RSLBUF = FAO BUF ; Get the run mode 
OO1C'CF go - 9A3 1 38 BICB2 #LC_BITM,BUFFER ; Convert to upper case 
OOIC'CF 4C BF 1 QO9A8 159 CMPB #*A7L/, BUFFER : Is his a loop for ever? 
“3 12 O9AE 1600 BNEQ 10$ ; BR if not 
QOOOA'CF 0 AA 0980 1601 BICW2 #TEST_OVERM,FLAG ; Reset the termination flag 
O17A'CF D6 0985 16 ¢ gurt PASS ; Bump the pass count 
989 16 FAO_S CTRSTR = PASS_MSG,- 
989 1 4 OUTLEN = BUFFER PfR,- 
989 1605 yee = FAO_BUF,- 
989 16 § P = PASS,- 
989 160 Pe = ITERATION,- 
989 1608 P = #0 ; Make the end of pass message 
OO14"CF DF Q9D6 1609 PUSHAL BYFFER PTA ; Push the string desc. 
DD O9DA 1610 PUSHL # ; Push arg count 
00741133 8F DD O9DC 1611 PUSHL  #UETPS_TEXT!STSSK_INFO ; Push the signal name 
00000000 ' GF 3 FB Q9E 1616 CALLS #3,G*LTBSSIGNAL ; Print the end of pass message 
O176'CF 04 Ove 161 CLRL ITERATION : Reset the iteration count 
1 43 oie 10$ BRW TIME_IT ; Do the next pass 
56 0198°CF  00000198'8F C1 S3rO 1616 ADDL3 #UNIT_LIST,UNIT_LIST,R6 ; Set the unit block list header 
02 88 O9FA 1617 BISB2 #UETUNTSM TESTABLE,- 
OB A6 O9FC 1618 UETUNTS$B_FLAGS(R6) ; Set the testable bit 
O14E'CF 10000001 8F 0DO 44) 1619 MOVL #SS$_NORMAL!STSSM_INHIB_MSG,STATUS ; Set successful exit status 
0A07 1620 SEXIT_S STATOS ; Exit with the status 
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~ ! ¢ -SBTTL RANSUF 
A ++ 
. A CRIPTION: 
N ; : pecichs tr poutlae fills buffer TEST_DATA with random numbers. 
Ale 1607 : CALLING SEQUENCE: 
a 1° 3 : BSBW RANBUF 
Ald 1630 : INPUT PARAMETERS: 
“ 19 3 NONE 
: ARAMETERS: 
M 18 : : oir grail betes of random data are left in buffer TEST_DATA 
Al 18 $ i-- 
ANS 18 mweu 
; set buffer adr 
3g $386 SF BF Ay 1840 08 MOVIUL Per Sa2/acRS ; BUFSIZ/4 bytes is the size 
AIC 1641 10$: 
. . ; make a new random number 
ovee'ee SHEE 69 SUE tet gL? pao naga jaa tevatenden 
Fi 55 F5 OAg8 1644 SOBGTR R3,10$ ; oo the whole thing! 
05 OA2B 1645 RSB 3 
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.SBTTL BADQUEUE | 


Ast 18¢g “ 

ASE 1825 ; FUNCTIONAL DESCRIPTION: | 
Agel 1650 ; This routine indicates a bad queue entry has been discovered by the 
. é 16 3 QRETRY macro and an error is reported. 
ACC 1653 ; CALLING SEQUENCE: | 

“ : : ; BRW BADQUEUE 
Age 1698 : INPUT PARAMETERS: 
“ : 19 3 ERROR_COUNT = current cumulative error count 
Acc 16 : : OUTPUT PARAMETERS: | 
A2C 1660 ; ERROR_COUNT = bumped by one 
AeC 1661 ; 
ate 
AeC 1664 BADQUEUE: 
007410E2 8F DO OA 1665 MOVL #UETPS_ABENDD ! STSSK_ERROR,- 
O35. ce A ; 1606 STATUS ; set the status code 
0472°CF DF OA 166 PUSHAL BADQUE ; push message address 
01 DD OA39 1668 PUSHL # ; push arg count | 

00741132 8F DD OA3B 1669 PUSHL #UETPS_TEXT!STSSK_ERROR ; pusn signal name 

03 DD OA41 1670 PUSHL # ; Push temp arg count | 
022A 1 OAS3 1671 BRW ERROR_EXIT | 


K 16 “oni at | 
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BADQUEUE “SEP=1984 04: 


as 3 
is 1ere © -SBTTL PKT_CHECK 
A i+ 
N: 
vi 1899 : FUNCTIONAL DESCRIPTION: DR packet status ott the termination queue. 
AS 189 : Each packet i coneas from the termination queue and the 
AS 1858 : DSL is checked for XFSM_IOS_SUCCES and XFSM_IOS_CMDSTD. A 
A46 1680 ; total count is maintianed for each call to fhe routine at 
vi 19 3 Location PKT_CNT. 
A ; 
: NG SEQUENCE: 
BAS IEEE | CAIN UE arcu 
: AMETERS: 
gnee i $ ; cabig TERMOH = termination queue head 
QAS6 16 : 
yes 1689 ; on eet tat & aber of packets serviced for this call 
OAG6 1691 : FLAG = BIT1 set if an error is encountered 
OA46 1692 : PACK_REMOVED = bit mask record of which packets were removed 
0A46 1898 : from the termination queue 
ae tee 
0A46 1696 PKT_CHECK: in 
FFC OA4 1697 » WORD *M<R2,R3,R4,R5,R6,R7,R8,RI,RI0,R 
01A8'CF ¥ 94 we 1998 or CLRB PKT_C CNT ; set packet count to zero 
Gace 150 REHOnT SERMOWARD ee : a packet from the queue 
wo base 170 BVC 5$ ; : ; *? an entry removed 
04 BAe 1708 $5 RET ; return 
7 as . the packet count 
1C¢ oe 68 °¢ Shas 1500 BITE WXESHNP PKT_FREQPK,XFSL_ PKT patina Ag it a free queue packet? 
53 % ‘3 eth 1508 Seve te R3 set the packet index 
06 «11 eye 179) 108: BRB 15$ 3 carry on 
: F$S_PKT_FUNC,- 
53 a + “ A 1712 cpg XPSB PKI CMDCIL RO) RS ; get the packet command 
wee Al? 198: it's removal 
OIAC'CF 1 35 4 5 gare Hat ey #1. ARE. -#1,PACK_REMOVED make tt - index % Seceiplte 
3 t am ascic pac 
- Pheasant £¢ ry 1519 RDDLg rnin ~TPL.RS : es eae ptotun address 
1C A2 64 D4 A 3 1718 CHPL (RAY, XFSL_PRT_DSL (R2) ; is the D correc 
ABF 1720 20S: ‘ 
007410E2 8F DO OA8F iv 1 MOVL gue Tee. ABENDD! STSS$K_ aoa sl ry RE a 
trae ne : INCL ponee COUNT ; bump the error counter 
Orearcr me RSE st 5 ERNDTACOU 
AIC 1725 x OUTLON = BADRPKT, 
AIC if § oyTeur s FAQ ,8 BUF ,~ 
AIC 1 = 
P z= XFS *PKT -DSL(R2), = 
Age 5 5 P = ; create the error string 
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3 O'CF DF OAB6 1730 PUSHAL BADRPKT ; set message address 
O00F } F DD OQABA 17 PUSHL a proses 3; set arg count 
07411 F DD QAC 17 PUSHL M#UETPS_TEXT!STSSK_ERROR ; set signal name 
14A'CF DD OAC6 17 PUSHL ERROR COUNT 3 push cumulative error count 
OA8'CF DF ACA 1754 PUSHAL BROCE SS NAME 
00) 8 F DD OACE 1735 PUSHL #*x10002 : push arg count 
48022 8F DD OAD4 17 : PUSHL #YETPS ERBOXPROC!STSSK_ERROR ; set signal name 
00000000 ' GF 8? i} ADA 17 cALLS #7,G*LIBSSIGNAL ; output the message 
OOOA'CE 08 8 AE] 17 : BISB2 W#ERR_FLGM,FLAG ; set the error flag 
4 OAE6 17 RET 3; return 
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-SBTTL System Service Exception Handler 


*+4+ 
; FUNCTIONAL DESCRIPTION: 
s routine is executed if a software or hardware exception occurs or 
if a LIBSSIGNAL system service is used to output a message. 


; CALLING SEQUENCE: 
; Entered via an exception from the system 
; INPUT PARAMETERS: 
; ERROR_COUNT = previous” cumulative error count 


AP ===> 2 


Po) 
Oo 


LONG WORD enna 


; 
' 
! ! 
! N-3 ADDITIONAL! Signal Array 
; 
' 
v 


; IMPLICIT INPUTS: 
: NONE 


; OUTPUT PARAMETERS: 
; NONE 


NAW WN OS OO NAUE WIN OOD NAME WN OS OONAUE WH - OOONOUS wn 


; IMPLICIT OUTPUTS: 
3 NONE 


$09.09 09 09 0909 09 09 G9 09 ISIN NSN SIN NDS ODO OOD TITTIES SE EE 


; COMPLETION CODES: 
: SS$_NORMAL if it's a UETP condition or RMS error. 
Error status from exception, otherwise. 


; SIDE EFFECTS: 
: May branch to ERROR_EXIT. 
May print a message. 


oO 

> 

m 

~ 
a a a a ee ee ee ee ee ee ee ee ee ee ee ee 
a be be Py ee eee ee 


NOUS WIN —OOe 


wowowowowJovon9o 


B 
5A 0000000 8F 
08 A6 = 04 


AnOooo 
mrmoo— 


o-uMIo- FF OOOO 
NMLODOOCAO mMmrvwo— 


oS 
0170'CF 
1A 


01 
01 
1 


59 


58 
59 0000045C er 
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VAX/VMS UETP DEVICE T 
System Service Except 


>>> 
~ wn 
@ 


wT" 
SANA AMBVOTANMNO MND HVOTOD HENUOSMoOWASSS OO F+Owons 


SHLHOHHOHOOHO SHO OOPS OSSD SOS O DS DOS OSS 


—OCOSo oC 


_ 
SNNINOOO Rob UR ME PRI ROE Pathan Aeon eer. 


BNE 
SGETMSG_S MSGID = R10,- 
MSGLEN = BUFFER PTR. = 


PAPO OD NAUEWIN  O OONA UE WN SO DOONAN EWN CO OONOAU EWN OC OONOUESWNOOo 


PU Be BS BB BE EE EAI NAINA DOPPINOPONIPINIDYD 2 2 OP SS S$ DOOOOOOOOOC OO’) 


& 


oo-oO 


7 80:91:03 a os Macro vO 


0 4- Page 44 
UETPS eae toe O80. MAR: 1 ° (15) 


«WORD “MCRZ2,R3,R4,R5,R6,R7,RB,RO,RI0,R11> ; Entry mask 


SSETAST_S ENBFLG = #0 
PUSHL #1 


CMPL $0558 WASSET RO 
BEQL 0$ 
CLRL (SP) 


SSETSFM_S ENBFLG = #0 

PUSHL “#1 

CRPL S-4SS$_WASSET.RO 
0$ 


BEQL 
CLRL (SP) 


MOVL ur et 38 ANGE St tae? 580 


MOVG H 

CMPZV  #STSS$0_FAT_NO,- 
#STS$S~FAC-NO.- 

R9 ,#UETPS FACILITY 


BNEQ 30 2 

SUBL2  #2,CHFSL_SIG_ARGS(R6) 

SPUTMSG_S MSGVEC”= CAFS$L_SIG_ARGS( 

BRB 40$ : 

CMPL  #SS$_SSFAIL,R9 

NEQ 50$ $ 

CMPZV #STSS$V_FAC_NO,- ; 
#STS$S~FAC-NO,- 
RiQ.#RASS_FACILITY 


BNEQ ; 
BICL2  #*XF0000000,R10 ; 
MATCHC #4,CHFSL_SIG_ARG1(R6),- : 


#NRAT_LERGTH; 
NO_RMS_AST_TABLE 


BEQL 508 

POPR #*M<RO> 

SSETSFM_S ENBFLG = RO 
P #*M<RO> 


PO 
SSETAST_S ENBFLG = RO 
MOVL 


S*#SS$_NORMAL ,RO 


MOVL R9, STATUS 


CLRL 
CMPL #SS$_SSFAIL,R9 


BUFADR = FAQ_ 
FLAGS = #147- 

OUTADR = MSG. BLOCK 
TSTB = MSG_BLOCK+1 


BEQL 
PUSHAL BUFFER, PTR 
PUSHL # 


; Disable AST delivery 


Assume ASTs were enabled 
ed? 


; Were ASTs enabl 
; BR if they were 
; Set ASTs to remain disabled 


; Disable SS failure mode 


Assume SS failure mode was enabled 


; Was SS failure mode enabled? 


R if i 


t was 
; Set SS failure mode to remain off 
; Get the signal array pointer 
: ; kre 


Get NAME in R9 and 1 in R10 


; Is this a message from LIBSSIGNAL? 


BR if *\is is not a UETP exception 
the PC and PSL 


* Drop 
R6) ; Print the message 


Restore ASTs and SS fail mode 


RMS failures are SysSvc failures 
BR if this can't be an RMS failure 
Is it an RMS failure? 


f not 
p control bits from status code 
t an RMS failure for which... 


; eat? AST can be delivered? 


if so - must give error here 


; Restore SS failure mode... 
: Restore AST enable... 


: Supply a standard status for exit 
; Resume processing (or goto RMS_ERROR) 


; Save the status 

; Assume for now it's not SS failure 
; But is it a System Service failure? 
; BR if not = no special case message 
; Get SS failure code associated text 


Get FAO arg count for SS failure code 
Don't use SGETMSG if no S$FAO args... 
-«-else build up... 

«ee@ message describing... 
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System Service Exception Handler 


00741130 BF DD AG 1855 PUSHL aie i 3 «eewhy the System Service failed 
00 A FO QBA8 1 2§ INSV R10, ,#STS$SV_SEVERITY,- ; Give the message... 
of AB 185 #STS$S_SEVERITY, (SP) : ...the correct severity code 
DO AD 1 23 MOVL #5 ,R8 ; Count the number of args we pushed 
11 BB 39 i BRB r0$ 
5A OD op 1861 PUSHL R10 : Save SS failure code 
58 01 00 Oss? } 96 708 MOVL #1,R8 ; Count the number of args we pushed 
57 66 4 CS OBB? 1864 MULL #4,CHFSL_SIG_ARGS(R6),R7 ; Convert Longwords to bytes 
5E 7 3 BBB 1865 SUBL R7,SP ; Save the current signal array... 
6E n** A6 ee Bek 1 96 MOVC R7,CHFSL_SIG_NAME(R6),(SP) ; ...0n the stack 
66 8 4 C5 186 ADOL R8,CHFSL_SIG_ARGS(R6), 0 eS) ; Push the current arg count 
00A6 31 OBC? 1868 BRW ERROR_EXIT 
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+45 ~ -SBTTL RMS Error Handler 
BC FUNCTIONAL DESCRIPTION: 
: This routine handles error returns from RMS calls. 
C CALLING SEQUENCE: 
+! Called by RMS when a file processing error is found. 
BC INPUT PARAMETERS: 
; The FAB or RAB associated with the RMS call. 
C IMPLICIT INPUTS: 
: NONE 
C OUTPUT PARAMETERS: 
- NONE 


o 


FODDOWOS FPVUWOOOP> YS SP yr rrr rrr rr>r>r>r>r>r>rr>r>r>rrr>rr,r>r 


IMPLICIT OUTPUTS: 
Error message 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Program may exit, depending on severity of the error. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 
+ 


OOOOCOSSOOOO OOO OOO OWWWWOWWOMOMWO NNN NNN 


AISA 2 OOO NOA NE WIN OOD NAUE WIN $$ O OO NAME WN OO OONOU EWR 0 OO NOUS WN 


SSSSSSSSBBABMcacaen 6a G99 SO SSCS SDGSCS OS COGSCRCSCSSSCECSCEGD 


ce me me ee ee ml ee me ee ee dd dd od Bd dS 


0B 
4! 
BC 
OBC 
OBC 
OBC 
OBC 
OBC 
OBC 
OBC 
se 
OBE RMS_ERROR: 
OF FC pat «WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> ; Entry mask 
56 04 AC 00 C MOVL 4(AP) ,R6 ; See whether we're dealing with... 
66 O03 91 D CMPB #FABSC_BID,FABSB_BID(R6) 3;_...@ FAB or a RAB 
16 12 D BNEQ 10$ ; BR if it's a RAB 
57 OQ41E'CF DE D MOVAL FILE,R7 ; FAB-specific code: text string... 
58 56 DO OBD MOVL R6 ; «address of FAB... 
OC A6 DD OBD PUSHL FABSL_STV(R6) ; ...STV field for error... 
08 A6 ODD E 90 PUSHL FABS$L_STS(R6) 3; «STS field for error... 
O14E'CF 08 ? dO E 90 MOVL FABSL_STS(R6) ,STATUS 3; «..and save the error code 
1 11 : 4 os BRB COMMON ; FAB and RAB share other code 
57 O42A'CF 43 E 91 MOVAL RECORD,R7 3; RAB-specific code: text string... 
8 CA6 OCOD F 91 L RABSL_FAB(R6) .RB ; ..-address of associated FAB... 
C AG DD F 4 PUSHL RAB st Sty ERO} 3; «e-STV field for error... 
8 AG «ODD F7 1 PUSHL RABSL_STS(R6) 3 «STS field for error... 
O14E'CF 08 AB 00 a 4 : x L RABSL_STS(R6) , STATUS 3 ...and save the error code 
5A 34 A8 9A OC 5 91 MOVZBL FABSB_FNS(R8),R10 ; Get the file name size 
C04 191 $FAO_S CTRSTR = RMS ERR_STRING,- ; Common code, prepare error message... 
C04 191 OUTLEN = BUFFER_PTR,- 
C06 «(19 py tour = FAO_BUF,- 
C04 19 P = R7,= 
C04 19 Ps = R16,- 
C04 19 P = FABSL_FNA(R8) 
OO14"CF DF OC y PUSHAL BUFFER_PTR 3 «.-and arguments for ERROR_EXIT... 
a DD cs 9 PUSHL £ see 
00741130 8F DD OC 9 


PUSHL #UETPS$_TEXT Sea 
i 
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v04-000 RMS Error Handler g- -SEP- =138¢ 80: gh:93 UETPSY.S CoC oR7 B00. MAR; 1 9° 16) v5 
EF OC2A 19 4 EXTZV #STSS$V_SEVERITY.- 
Coc 1 : #STS$S_SEVERITY,~ 
59 O14E f C2dD 19 STATUS,R 3 «.-get the severity code. 
6— 59 88 0C31 1930 BISB2 R9, (SPS ; ...and add it into the signal name 
93 bo C34 «1931 PUSHL #5 3 Current arg count 
00 1 0C€36 1932 BRW ERROR_EXIT 
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=x 


t 
c 13 4 se .SBTTL CTRL/C Handler 
¢ 19 8 : FUNCTIONAL DESCRIPTION: 
. 2 12 : This routine handles CTRL/C AST's 
C39 1939 > CALLING SEQUENCE: 
: 4 1379 ; eatted via AST 
C39 1948 + INPUT PARAMETERS: 
fee fede : — 
C39 1945 : IMPLICIT INPUTS: 
TS at all 
C39 1948 : OUTPUT PARAMETERS: 
E39 1980 | — 
€39 1951 : IMPLICIT OUTPUTS: 
OC39 1988 | — 
0C39 1954 : COMPLETION CODES: 
O¢ } 1955 ; NONE 
Oc39 1989 : SIDE EFFECTS: 
0639 1958 : NONE 
0c39 1959 : 
Bey ae) 
o¢ 9 196¢ CCASTHAND : 
OFFC c 9 1963 WO “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; Entry mask 
02B4'CF DF OC36 1965 PUSHAL CNTRLCMSG ; Set message pointer 
0 DD OC3F 1966 PUSHL ; Set arg count 
00741130 8F DD 0C41 1967 PUSHL #UETPS_TEXT!STSSK_WARNING ; Set signal name 
DD aces 1968 PUSHL #0 3 indicate an abnormal termination 
OOA8' CF DF C49 1969 PUSHAL PROCESS _NAME eas 
007410E0 8F DD Bear 1971 PUSHL  #UETPS$_ABENDD!STSSK_WARNING ; ... 
00000000'GF 07 =FB OC55 1306 CALLS #7,G*LTB$SI ; Output the message 
dO Bc3e I3o7 MOVL #<STSSH piett8 PSG! = ; Set the exit status 
O14E'CF 10000650 8F a¢$p 1398 af Se ee 
0c65 1977 SEXIT_S STATUS : Terminate program cleanly 


LOM S&L NU M OOOOCOCOCSCOOCCOOOCOCO 


AAAOOAOOAOWOAAOAAAAOAQAQAQAQAAAAAHOHHAHAAHAAAOHAAHAHAHAAHAAAAAOAAAAAOHOOAOOOOHOO Mm 
bet Ms myRy 4 4 o tt 4 > 00008008 LLL i 


SOOCCOOOCOOOSOOCOCOOCOCOCOOOOOOOOOOOSCOSOSOOCOOOCOOOOCOOOOOOOOOOOOOOOOO 


OER OOD NAW EWN 2A OOD NAME WIN $$ O OD NAN E WN 0 OD NOAM EWN OOO NOUIE UP 


IA ANAAIAIPOPOPONONPOPONONONNY 


WF O90 FM@OFO 
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Pe 
-SBTTL Error Exit 


+ 
FUNCTIONAL DESCRIPTION: 
This routine prints an error message and exits. 
CALLING SEQUENCE: 
MOVx error status value,STATUS 
PUSHx error specific information on the stack 
PUSHL current argument count 
BRW ERROR_EXIT 


INPUT PARAMETERS: 
Arguments to LIBSSIGNAL, as above 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
Message to SYSSOUTPUT and SYSSERROR 


IMPLICIT OUTPUTS: 
Program exit 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


ERROR_EXIT: 
SSETAST_S ENBFLG = #0 ; Disable AST's 
BBS #BEGIN_MSGV,FLAG,10$ ; BR if ‘‘begin’’ msg already printed 
CLRL =(SP) ; Set the time stamp flag 
PUSHAL A ate ; Set the test name 
PUSHL @# 


PUSHL #UETP$_BEGIND!STSS$K_SUCCES 


Push the argument count 
S ; Set the message code 


CALLS #4,G*LTBSSIGNAL Print the startup message 


10$: 


ADDL3 (SP) +,#8,ARG_COUNT 
IN ERROR, COUNT 


C 
PUS Push the time parameter 
a gg PROC NAME Push test <n 

PY oe - afr coun eee 
PUSHL #UETP$_ABENDD!STS$K_ERROR ;: . 4S signal name 
PUSHL ERROR COUNT ; Finish off arg List... 
PUSHAL PROCESS NAME oes 
PUSHL #*x10002 


Get total # args, pop partial count 
Keep running error count 


PUSHL #UETP$ ERBOXPROC'!STSSK_ERROR ; ...for error box message 


CALLS ARG_COONT,G*LIBSSIGNAL~ ; Truly bitch 


f we 


TATUS 3; Did we exit with an error code? 


; BR 
MOVL #UETP$_ABENDD ! STS$K_ERROR, - ; Supply a generic one otherwise 


H 1 
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O14E'CF STATUS 


9 
C 20$: 
O14E'CF 10000000 8F CB f Su Bist #STSSM_INHIB_MSG,STATUS ; Don't print messages twice! 
EXIT_S STATUS ; Exit in error 
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Exit Hand -SEP=-1 
-SBTTL Exit Handler 


;++ 
; FUNCTIONAL DESCRIPTION: 

a re AR, pandles cleanup at exit. If she — bogical oy is 
soust the rous tne will update the Yi A 
U TENTDEY Ms ile depending on the UETUNTSM_ TESTABLE 
wd nih Lage field of the unit block for each unit fo 
under test. 


CALLING SEQUENCE: 
Invoked automatically by SEXIT System Service. 


INPUT PARAMETERS: 
STATUS contains the exit status. 
FLAG has synchronizing bits. 
DDB_RFA contains the RFA of the DDB record for this device in UETINIDEV. 


IMPLICIT INPUTS: 
UNIT_LIST points to the head of a doubly Linked circular List of unit 
locks for the device under test. 


OUTPUT — 


Lag nee in the 
r the device 


IMPLICIT OUTPUTS: 
yor tous files are de-accessed and the process name is reset 
if th _ eat he name is equated fo “ONE’’, the poutine will update 
Lag n the UVETINIDEV.DAT file depending on the 
GETUNTSH. tes ABLE flag state in the UETUNT 8. FLA 5° field of the unit 
block for each unit for the device A bog test. 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Pete Ge Se Ge Ge Se Se Ge Ge Se Se Ge Ge Se Se Ge Be Ge Se Se Se Se Se Se Se Se Se Se Se Se. Ce Se Se 


5 
; 
9 
? EXIT_HANDLER: 
g 
4 
5 


OFFC WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ; Entry mask 


ee i i Di Di Di ee Bi a Bi ee Ds Di De Da ee Di es i Ra Be Be i es Be Be es De Bs i Bs es Bs es Be es De es De es | 


SSETSFM_S ENBFLG = # ; Turn off S$ eg Service failure mode 

SSETAST_S ENBFLG = ; Disable AST’ 

STRNLOG_S LOGNAM = MCDE,- > Get the run aede 
RSLLEN = BUFFER_PTR,- 
RSLBUF = FAO BUF 

OO1C'CF 0 BICB2 #LC_BITM, BUFFER ; Convert to upper case 
OO1C'CF 4F BF 1 CMPB #*A70/ ,BUFFER : Is this ° one shot? 
3 ¥ BEQL 10$ ; BR if yes 
0088 BRW END_UPDATE + ...else don't update UVETINIDEY.DAT 


BBS #SAFE_TO_UPDV,FLAG,20$ ; Only update if it's safe 
BRW END_UPDATE Else forget it 


MOVAL INI_R Set the RAB address 
MOVB #RABS $e iy RABSB _RAC(RIOS Set RFA mode 


03 OOOA'CF 02 0 
OOAF 


ie AR 02 96 


SOSCSC CSCC SCO SSS GOH OMAAAAAAAAAOAAOAOAVAAOOAOOAOAOAOOOOOOOOOOAOOOOOOAO 
~~" 


= i 
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pa 
§ 10$: 
5 


vest ULMaaee DEVE Test ron onrabvohrso osee-egs O:G140h MACHR Sete ABe wns 9" ch 


: 10 AA 16E4'CF 06 28 Set RFA to DDB Line 


gS TSBs mitt “RO, -(SP)° 
00 0 ayer SPS 3 «+-tO our message 
00000000'GF 05 CALLS # Ore TOSS IGNAL 
END_UPDATE : 

P #0 Set the time flag 
PUSHAL y5st- NAME 


Push the test name 


NW a & 


cococvcse 
mmmno 


00 
OOOF "CF 


mooo "oO 
sono Woo 


DEB Push arg count 
DED EXTZV #STS$V_SEVERITY Push the proper exit severity... 
0 DEF #STS$S" SEVERITY 
7E oner F STATUS, =(SP) 
6—€ 00741080 8F C8 BISL2  #UETPS. aisle ial 3; «and use it in our message code 
4 OD PUSHL #4 
51 —E oO OVL SP,R1 


(R1) ; Output the message 
& ACNT_NAME 3 Re set the process name 
; That's all folks 


~END UETDR7800 
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++ 38 MOVCS3 #6,DDB_RFA,RABSW_ RFACR10) 
D46 209 $SGET RAB = (R105 bo back to the DDB record 
1E AA’ 00 59 bso 5104 Ove RO UFDAIE FALL B aaccntos set Sek bp cemitiek weds 
5B 0198'CF 00800198" 4 4 b8 i 5 epg sUNIT. cist{UNiT Liss Rit f. : the unit block fit header 
3 In nter 
01 E1 bg i ¢ vest cage * #UETUNTS$V_TESTAB BR oo et i bl 
- ; $s un Ss not testable 
02 08 AB D6 3106 UETUNTSB_ FLAGS (RIS £108 ‘ : 
59 D6 44 ! 108: INCL R ; Count testable units 
B CO 0069 21 " ADDL2- (R11), R11 : Next unit block 
ooooorga'ar SRO Dg 193 CMPL’ R11, #UNIT_LIST Are we full circle in the List? 
gD if D 111 BNEQ §-UNIT_LOOP : BR if not 
9 OD D7 1 § TSTL R9 ; Any testable units? 
12 {5 D7 1 BNEG 20$ ; BR if yes... 
OO20'CF 4E BF 9 D79 2114 MOVB #*A/H/ ,BUFFER+4 3; .--else disable the DDB record... 
D7F 2115 SUPDATE RAB = (R10) 3 ..here 
3c 50—s«éEY 44 } § 208 LBC RO,UPDATE FAILED ; If error then forget it 
58 68 CO OD8B 2118  ADDL2 (R11),R11 : Next unit block 
00000198 ' 8F 5B ODI DBE 119 CMPL R11,#UNIT_LIST 3; Are we full circle in the list? 
4E 13 D9 120 BEQL END UPDATE ; BR if yes 
D97 2121 $GET RAB = (R10) ; Get a record 
24 50 +H oe 1 ¢ BLBC RO,UPDATE_ FAILED : If error then forget it 
001C'CF 0 A ODA 1 BICB2 #L¢_BITM,BUFFER ; Convert to uppercase 
OO1C'CF 55 8F 91 DA8 124 CMPB #*A7U/ BUFFER s Is it @ I in record? 
5 12 ODAE 2125 BNEQ = END_UPDATE : BR if n 
01 €0 ODB 1 § BS #UETUNTSV_TESTABLE,- ; BR if this unit is testable... 
D6 0B AB DB2 21 UETUNTSB._FLAGS(R115,20$ 
OO20'CF 4E BF 90 +H] ! 8 Dove se a’ eur enes Sos “p.ee disable the UCB record... 
= - wee 
C4 50 €E€8 ODC4 2130 LBS 0,20$ 3 Po 4 the next record if no error 
DC? 2131 UPDATE_FAILED: 
OC AA DD ODC7 21 § PUSHL RABSL_STV(R10) ; Do a simple message... 
50 DCA 21 PUSHL 3 «eto tell of the failure 
0301'CF OF 43" : : tt pRldeve UPDERR 
\ § EXTZV ostsey.. SEVERITY,- ; Copy the severity from RMS status... 
138 
139 
140 
18 
1 
1 
144 
5 
is 
143 
13} 
13 
154 
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UETOR7800 
Symbol table 


NA S 
INIDEV_UPDERR 
INI_FAB 
INI-RAB 
INPTQH 
INPUT1_BUF 
INPUT_6UF 
INPUT- ITMLST 
10$M_CTRLCAST 
10$_READVBLK 
10$_ SE TMODE 
10$"STARTDATA 


1OCSGW_XFMXRATE 
10_ COMPLETE 
ITERATION 


LC_BITM 
LIBSSIGNAL 
MAX_DEV_DESIG 


MAX_PROC_NAME 
MAX" UNIT_DESIG 
MBCRAN 


MODE 
MSG BLOCK 
NAME 


NOOP _PKT 
NOUNTT SELECTED 
NO_CTRLNAME 


OTS$CVT_TI_L 
QUTADDRESS 


OUTPUT_BUF 
PACK_REMOVED 
PAGES 


So aie 
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Q000000A R 


RReREKEE 


Reeeeeee 
Reeeeeee 
Reka KeRe 
eeeekene 
Reeeeeee 


454 44 9 
00000176 
00000020 
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_NAME 
RO NAME_FREE 
PROC CORT _NARE 


QUAD _STATUS 
RABSB_PSZ 


UF 
RATE ~DESC 
RATE “FLOAT 


READ-DDI_PKT 
READ~ 
READ” SIZE 


RMS$_BLN 
RMS$_BUSY 
RMS$_CDA 
RMSS_EOF 
RMS$_FAB 
RMSS“FACILITY 
RMSS_FNF 
RMS$_RAB 


RMS_ERROR 
RMS~ERR_ STRING 
SAFE_TO"UPDM 
SAFE~TO-UPDV 


eeeeeeee 
eeeeeene 
eeeeeeee 
eeeneeee 
eeeeeeee 
00000001 
eeeeeeee 
aeeeeene 
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Symbol table evesere seeeeees Gx 5 
® 
SECSM_EXPREG ronewso ey Ee Sy S30 lou feaseeee 
SECSM-GB 4A R SYSSSETAST eeeeenee GX 5 
SET_RAND of NAaLe 9 30 R SYSSSETEF aeeeeeee GX 5 
SETUSELF-PKT O5€7 R SYSSSETIMR eeeeenee GX 5 
SET SELF TEST - 1 SYSSSETPRN aeeeeeee GX 05 
$S_ABER . 1 SYSSSETSFM aeeeeeee GX 5 
SHRS~BEGIND = BeoRt SYSSTRNLOG Seaesees aa 
SHRS~ENDEDD = Bape SYSSUPDATE teeneeee GX 05 
et Ha 5 = 1 SU yt aeeeeeee GX 5 
SS$_BADPARAM . My SYSIN_FAB 8 0) 80¢ 4 : 
see LON TROLe i. 4 Et toa 00004 6 R a3 
SS$NOSUCHSEC = Boonpese TERMOH 000083 R 3 
S8$-SSFAIL . : TEST_DATA 09 ZR 05 
SS$_TIMEOUT = 90000009 TEST~END 4444 2 
«Pe = 09900005 TEST-NARE = 00000002 
SS_SYNCH_E ED 000 FR 4 TEST_OV ms 90000 1 
‘alien site AHR Bae 
STRSUPCASE = seoccees THREEMIN Benezee ROMS 
STS$k_ “into = 0000000 ThOe a! 9900000 R93 
STSSK-SUCCESS . $0901 UETDR7800 : peat RG 
sentnC na = 9988808 veTeE Age ly 
STS$S-SEVERITY : SSH UETPS-BEGIND = 0074g081 
STSSV~SEVERITY z SaUUGRRA RS UE TPS COPY“LOG_ ENDED : 31 089 
su 9000020 : UETPS-COPY EL = 00748010 
SUPDEV GBLSEC QOO016EC RO UETPS-DA = 0074833 
SUP FAB eeeneeee GX 05 UE Tee -DENOSU = 007610 9 
SYSSASSIGN teeeenee GX 05 US TDs ERDSePROC = 007480 
SYSSCANTIM eccsceee UETPS_ERBOXPR = $00000%4 
SYSSCLOSE ower Bh UETPS~FACILITY . 7210 i 
SYSSCONNECT teeeeeee GX 05 TP$_OPENIN = $744 3 
SYSSCREMBX teeeeeee GX 05 TPS TEXT = 000000 
SYSSCREPRC eeeeeeee GX 05 UETUNTSB_FLAGS = 290 O08 
SYSSCRMPSC teeeeeee GX 05 UETUNTSB-TYPE : 11 
SYSSOCLEXH eeeeeeee GX 5 UETUNTSC_FAB 12 = 1A4 
SYSSERASE eeeeeeee GX 2 UETUNTSC_INDS 11 
SYSSEXIT teeeerer 6X UETUNTSK_FAB = 16 
ths FA gereeeee xX 3 1 dt = ? 
Sree ssctemse GS URTUMTBTAILSEE : Bas 
SYSSGETCHN Saeaeet ee UETUNTSW7SIZE ’ i R 
Heciey sree AMT af 
presee ture aooooise ey 02 UNITS Ht 
SrSEaeasE! seeeeeee FOF LT meee = HOOORG 
SY SSPUTASG arenes SaaS ae UPDATE~ FAILED d 
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CHAIN 
CH _PKT 
DEV_CNTRL 
PK 
we $I 
XF$B_CMT_RATE 
XF$B_PKT_CMDCT 
XFSK-CMT"LENGT 
XF $K~PKT_CBDMB 
TTCLR 
TIDIA 
T"DIA 
DI 
IA 
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XFLD 

XFLOR_SYSSERROR 

XFLDR_SYSSERROR_DESC 
YSSERR 


XFLDR_SYSSERROR_LENGTH = 
XFLDR_SYSSERROR_RAB 


¢oeeeece cee eee memes $ 


! Psect synopsis ! 
teens eeeeee = secret 


PSECT name Allocation PSECT No. Attributes 


instf® * oe go) Mabie rr 
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AX/VMS Macro Pa 5 
SEP-1984 = 1 


v04- 
UETPSY.SRCJUETDR7800.MAR; 1 ( 


tm o rece wom emer ance aco eaee + 


! Performance indicators ! 


tem oeeer ween ero neem eww nce me + 


Phase Page faults CPU Time Elapsed Time 
Initialization 7 0:00: 9.07 0:00:00.87 
Command processing 138 0:00: Q. 3 0:00: 83 
Pass 6 3 0:00:27.6 0:00:56. 
syeso} table sort :00: $+? :00:04.94 
Pass 551 8 :00:07.4 : Be PP 
Symbol table output 46 :00:00.34 :00:00.44 
Psect synopsis output 0:00:00.03 B28 0.03 
Cross-reference output 0:00: 8-98 Ba! 0: 8-8 
Assembler run totals 138 0:00:38. 0:01:19.08 


The var hine set at was 2000 pages. 
165248 bytes (325 pages) of virtual memory were used to buffer the intermediate code. 
There were 90 pages of symbol table space allocated to hold 1637 non-local and 79 local symbols. 
154 source Lines were read in Pass 1, produc tng 45 object records in Pass 2. 
1 pages of virtual memory were used to define 63 macros. 


¢ ewer ocene ee cece mene ec sesens > 


; Macro Library statistics : 


Macro Library nane Macros defined 


.$255$DUA28: CSHRLIBJUVETP.MLB; 1 ‘ 
_8255$0UA28: (SYS.OBJILIB.MLB; 1 

$255$DUA28: CSYSLIBISTARLET.MLB;2 56 
TOTALS (all Libraries) 58 
1959 GETS were required to define 58 macros. 

There were no errors, warnings or information messages. 
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